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A software  system  developed  by  Scott  B.  Til  den 
and  M.  Bonner  Denton  at  the  Chemistry  Department,  Univ. 
of  Arizona.  Development  of  this  system  was  partially 
supported  by  the  Office  of  Naval  Research  and  an  Alfred 
P.  Sloan  Fellowship  to  M.  Bonner  Denton. 
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THE  UNIVERSITY  OF  ARIZONA 

TUCSON,  ARIZONA  85721 


COLLEGE  OF  LIBERAL  ARTS 

DEPARTMENT  OF  CHEMISTRY 

May  10,  1978 


Dear  Potential  CONVERS  User, 

Enclosed  you  will  find  a manual  describing  the  concepts,  operation, 
and  8080  source  listing  for  CONVERS. 

As  with  any  "language",  the  fastest  route  to  fluency  is  through  hands 
on  use.  Additionally,  in  repeated  cases,  individuals  who  have  brought  up 
CONVERS,  report  back  escalating  enthusiasm  about  the  powers  inherent  within 
its  concepts  which  they  could  not  appreciate  until  they  started  using  it. 

Since  without  a question,  Scott  and  I have  not  found  all  the  errors, 
your  help  will  be  greatly  appreciated  in  both  bringing  our  attention  to 
outright  mistakes  as  well  as  detailing  any  portions  of  the  manual  which 
are  unclear. 

If  you  have  facilities  to  read  paper  tape,  we  will  furnish  you  with 
a source  of  both  the  initial  machine  code  dictionary  and  standard  high  level 
CONVERS  (it  saves  you  a great  deal  of  typing  and  possible  problems  with  the 
associated  errors) . 

We  have  two  requests  of  CONVERS  users: 

(1)  Let  us  know  who  you  are,  the  type  of  CPU,  peripherals  and 
application  - we  are  starting  a CONVERS  users  group  to  en- 
courage communication  and  hopefully  develop  sufficient 
standards  to  allow  software  sharing,  etc. 

(2)  Since  CONVERS  is  a highly  plastic  software  package,  you  will 
without  question  end  up  modifying  it  to  generate  a custom 
"language"  to  fit  your  application.  However,  to  facilitate 
recognition  of  the  CONVERS  concept  behind  your  custom  package, 
we  would  greatly  appreciate  your  retaining  the  word  CONVERS 
and  adding  prefixes  and/or  suffixes,  i.e.,  CONVERS  6800  (a  6800 
version),  CONVERS  A.S.U.  (Arizona  State  University  version),  etc. 

We  wish  you  the  best  of  luck;  however,  if  you  have  problems,  please 
call  Scott  or  myself  at  602-884-3758. 

Sincerely, 


Scott  B.  Tilden 

M.  Bonner  Denton 
Associate  Professor 

MBD/mc 
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CONVERS  - an  Interpretive  Compiler 
Part  I 
by 

Scott  B.  Tilden  & M.  Bonner  Denton 

Department  of  Chemistry 
University  of  Arizona 
Tucson,  Arizona  85721 


The  common  classes  of  high  level  languages  are  interpreters  (exempli- 
fied by  BASIC)  and  compilers  (such  as  FORTRAN).  Each  of  these  approaches 
have  definite  advantages  and  disadvantages.  Interpreters  are  conversa- 
tional, giving  caution  and  error  messages  during  programming,  but  are 
relatively  slow  during  execution.  Compilers  generally  run  much  faster, 
but  are  not  as  easily  edited  or  debugged.  In  control  environments,  both 
types  of  languages  share  the  disadvantage  of  it  being  difficult  to  incor- 
porate custom  I/O  "drivers"  into  the  system. 

One  obvious  question  immediately  arises — why  not  incorporate  the 
most  desirable  characteristics  of  each  of  these  software  approaches  into 
a single  language?  Additionally,  due  to  unique  requirements  found  in 
many  applications,  why  not  allow  the  programmer  the  flexibility  to  actually 
develop  his  own  individual  modifications  and  additions  to  the  language 
itself?  Other  desirable  features  would  include  high  memory  efficiency, 
ease  of  understanding  how  the  language  operates  and  the  ability  to  be 
transferred  from  one  CPU  to  another. 

A language  described  originally  in  1974  by  C.  H.  Moore  at  the  National 
Radio  Observatory  (1)  offers  many  of  the  advantages  described.  However, 
this  language,  called  FORTH™,  has  the  major  disadvantage  that  its  in- 
ternal workings  are  exceedingly  complex. 

Using  experience  gained  with  BASIC,  FORTRAN,  and  FORTH™,  a new 
approach  to  software,  named  CONVERS,  has  been  developed.  The  word  "approach" 
has  been  used  because  CONVERS  provides  the  user  with  the  capability  of 
rapidly  developing  a customized  software  package  for  any  individual  appli- 
cation. A wealth  of  generalized  software  programming  aids,  I/O  routines, 
and  high  level  constructs  are  provided  to  make  this  possible.  Through 
utilizing  advanced  programing  concepts  including  threaded  code,  software 
stacks,  etc.,  the  entire  CONVERS  support  system  resides  in  less  than  4K 
bytes  on  an  8080  based  system.  An  entire  disk  operating  system  requires 
only  800  additional  bytes! 

The  discussion  of  CONVERS  will  center  first  on  a general  introduction 
to  the  concepts  behind  the  language.  A second  article  will  deal  with  pro- 
gramming examples,  giving  a great  deal  of  attention  to  the  types  of  'commands' 
supported  by  the  standard  CONVERS  package.  Finally,  the  last  article  will 
treat  the  'Initial  machine  code  dictionary'.  These  routines  are  the  low 
lying  code  on  which  the  rest  of  the  system  relies.  In  this  last  discussion, 
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several  important  methodologies  will  be  treated  which  are  used  to  imple- 
ment the  CONVERS  software  system. 

CONVERS  has  properties  of  both  interpreter  and  compiler  types  of 
languages.  An  interpreter  has  the  one  obvious  advantage  of  being  inter- 
active. This  is  the  case  with  CONVERS,  as  soon  as  CONVERS  is  loaded  and 
running,  it  is  waiting  for  commands  much  like  BASIC.  This  aspect  Is  im- 
portant; the  user  should  be  spared  the  drudgery  of  constant  assembling, 
loading  of  object  code,  run  time  packages,  even  front  panel  switch  toggeling 
followed  by  reloading  the  assembler  and  source  code  when  additional  editing 
is  required.  As  important,  CONVERS  interacts  with  the  user  by  echoing 
error  and  warning  diagnostic  messages  both  during  programming  and  program 
execution. 

A true  interpreter  also  has  the  property  of  actually  interpreting 
symbolic  source  code  that  exists  in  some  file  area  or  is  being  input  from 
a terminal  or  mass-storage  device.  With  most  interpreters,  the  execution 
of  the  symbolic  code  always  remains  within  the  interpreter,  i.e.  each 
symbol  (command)  that  is  recognized  corresponds  to  a string  of  code  within 
the  interpreter  itself.  Thus,  user  program  execution  is  really  only  di- 
recting the  execution  of  code  within  the  interpreter.  A conventional 
interpretive  program  structure  is  illustrated  in  Figure  1. 

Disadvantages  of  this  interpretive  structure  are  obviously  low  execu- 
tion speeds  and  lack  of  flexibility.  Each  command  must  first  be  interpreted 
followed  by  command  execution.  In  many  cases,  the  interpretation  cycle 
to  identify  the  command  takes  much  more  time  than  the  actual  execution  of 
the  command  within  the  interpreter.  Another  contribution  to  the  slow 
execution  of  this  structure  is  that  commands  interpreted  in  the  'past'  must 
be  reinterpreted  each  time  this  particular  command  is  reiterated.  This 
process  can  easily  'waste'  a great  deal  of  time. 

A conventional  compiler,  on  the  other  hand,  transforms  symbolic  source 
code  into  machine  code  which  executes  independently  of  the  compiler.  For 
instance,  FORTRAN  compilers  designed  to  run  on  many  types  of  minicomputers 
(and  some  microcomputers)  will  first  transform  user  symbolic  source  code 
into  assembly  code.  An  assembler  must  then  transform  this  into  machine 
code  which  is  subsequently  loaded  and  executed,  often  in  conjunction  with 
a "run  time  package".  The  program  contains  within  itself  all  the  code  it 
needs  to  execute  properly.  The  advantage  of  the  compiler  is  in  terms  of 
speed  since  the  user's  symbolic  source  code  itself  is  transformed  into 
machine  code,  illustrated  in  Figure  2. 


When  initially  loaded  and  running,  CONVERS  is  an  interpreter,  i.e. 
CONVERS  contains  all  the  programming  algorithms  to  input  symbolic  source 
code  and  to  properly  execute  it.  When  a new  algorithm  is  initially  en- 
tered (programmed),  CONVERS  converts  it  to  a completely  compiled  machine 
code,  or  to  the  starting  addresses  of  other  compiled  machine  code  programs 
necessary  to  properly  execute  its  function.  Thus,  at  the  time  when  new 
programs  are  being  defined,  CONVERS  is  acting  as  an  'interpretive  compiler', 
supplying  machine  code  within  the  body  of  the  new  program  while  maintaining 
conversational  interactions  with  the  programmer.  CONVERS  keeps  the  operator 
informed  of  the  status  of  the  program  by  outputting  error  and  diagnostic 
messages.  To  execute  this  compiled  program,  the  user  needs  only  to  enter 
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the  name  of  the  program  on  the  terminal.  Once  this  program  (entry)  is 
located,  control  is  passed  totally  into  this  program  which  begins  execu- 
tion independently  of  the  interpreter  subroutine. 

CONVERS  maintains  the  advantages  of  compiler  and  interpretive  lan- 
guage structures  by  separating  the  compile  and  execute  modes  in  time. 

The  execute  mode  is  the  mode  the  interpreter  assumes  to  execute  a pro- 
gram. The  user  (or  some  mass-storage  device,  etc.)  inputs  a program  name, 
the  interpreter  searches  for  the  program  in  memor7  and,  once  located,  it 
is  executed  in  its  entirety.  The  CONVERS  interpreter  subroutine  can  also 
assume  a compiler  mode.  In  this  mode,  the  interpreter  is  used  to  compile 
a new  program.  To  put  the  interpreter  in  the  compile  mode,  the  user  types 
a colon  (:)  followed  by  a space  (the  space  is  a universal  delimiter  in 
CONVERS).  The  interpreter  assumes  that  a new  program  is  to  be  compiled; 
since  all  programs  must  have  a name,  the  user  must  now  input  a suitable 
name  for  the  new  program.  (Again,  as  is  always  the  case,  a space  must 
follow.)  What  are  legal  program  names?  The  answer  is  simple— any  ASCII 
character  string  of  any  length  (up  to  128  characters)  is  a valid  name  for 
the  new  program.  What  follows  the  program  name  are  the  names  of  previous 
programs  which  will  define  the  new  program's  function.  Since  the  inter- 
preter is  in  the  compile  mode,  these  programs  are  compiled  into  the  new 
program  instead  of  being  executed.  The  semicolon  (;)  ends  the  compilation 
of  the  program  and  returns  the  interpreter  back  to  the  execute  mode. 

The  new  program  remai ns  as  a totally  compiled  part  of  the  CONVERS 
system,  i.e.  this  program  can  likewise  be  employed  in  later  programs. 

There  is  no  need  to  recompile  any  program  once  originally  defined.  This 
eliminates  one  of  the  major  disadvantages  of  purely  interpretative  lan- 
guages, i.e.  each  command,  series  of  commands,  or  whole  programs  must  be 
recompiled  each  time  they  are  encountered. 

As  an  example,  suppose  the  user  wishes  to  define  a program  which  has 
the  simple  function  of  ringing  the  bell  on  the  terminal  five  times.  The 
following  program  may  be  defined,  with  the  name  of  the  new  program  being 
'SOUND': 

: SOUND  BELL  BELL  BELL  BELL  BELL  ; 

The  colon  (:)  is  recognized  by  the  interpreter  as  a command  which 
puts  the  system  in  the  conpile  mode.  This  is  followed  by  the  new  program 
name,  in  this  case  'SOUND'.  The  program,  'BELL',  has  been  defined  in  the 
standard  CONVERS  system  as  a trivial  program  to  ring  the  terminal  bell. 
Since  the  system  is  in  the  compile  mode,  'BELL'  is  compiled  into  'SOUND', 
i.e.  the  starting  address  of  'BELL'  is  deposited  into  'SOUND'  following 
a machine  code  'call'.  Since  four  more  'BELL's'  follow,  the  above  com- 
pilation scheme  is  repeated  four  more  times.  The  semicolon  (;)  is  recog- 
nized by  the  interpreter  as  a command  to  end  compilation  and  return  the 
system  to  the  execute  mode.  'SOUND'  may  now  be  executed  by  entering 
'SOUND'  on  the  terminal  (followed  by  a space);  once  the  interpreter  lo- 
cates 'SOUND',  a 'call'  is  made  to  its  starting  address.  Since  'SOUND' 
has  already  been  compiled,  the  interpreter  can  place  program  control  into 
'SOUND'  which  will  execute  independently  of  the  interpreter.  Thus,  the 
only  overhead  suffered  by  the  program  when  executed  is  the  time  required 
for  one  dictionary  search  and  the  subsequent  calls  and  returns.  Since 
an  efficient  programmer  would  program  in  assembly  using  the  same  calling 
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structure,  CONVERS  programs  execute  approximately  as  fast  as  is  possible 
using  aTmost  any  other  programming  language.  Thus,  it  can  be  seen  that 
CONVERS  gives  to  the  user  the  advantages  of  both  interpretative  and  com- 
piler types  of  programing  languages. 

This  discussion  has  treated  user  defined  programs  as  an  entity  in 
themselves.  In  fact,  these  programs  are  stored  in  computer  memory  as 
discrete  entities  in  a set  fashion.  The  way  programs  are  stored  is  ana- 
logous to  the  way  words  are  stored  in  a dictionary,  i.e.  the  name  of  the 
entry  is  followed  by  the  definition.  Due  to  the  similarity  between  CONVERS 
programs  and  dictionary  entries,  the  following  terminology  has  been  adopted. 
The  programs  making  up  the  CONVERS  package  will  be  called  dictionary  en- 
tries, and  the  dictionary  will  name  the  area  of  memory  where  entries  are 
sto red. 

•he  concept  of  a dictionary  format  is,  as  discussed  above,  a close 
analogy  to  the  internal  structure  of  CONVERS.  Just  like  new  words  are 
defined  using  other  words,  CONVERS  defines  new  entries  using  previously 
defined  entries.  Initially,  however,  a dictionary  must  define  words 
uniquely  (or  the  language  would  go  around  in  circles);  the  same  is  true 
with  CONVERS,  the  low-lying  entries  are  defined  using  machine  code.  New 
words  that  must  be  uniquely  defined  are  constantly  being  added  to  the 
dictionary.  The  CONVERS  user  can  also  define  new  entries  at  any  time 
using  machine  code. 

The  user  has  access  to  dictionary  entries  at  any  level,  including 
the  initial  machine  code  dictionary  which  makes  up  the  'interpretive 
compiler'  of  the  CONVERS  system.  The  fact  that  the  CONVERS  user  has 
access  to  entries  that  represent  any  number  of  levels  of  definitions 
from  very  simple  to  complex,  means  that  CONVERS  uses  a type  of  structure 
called  threaded  code.  In  a typical  programming  structure,  the  flow  of 
logic  might  look  like  Figure  3,  assuming  no  conditional  jumps  are  to  be 
made.  The  letters  A through  I represent  separate  logical  steps  in  the 
program.  A typical  CONVERS  structure,  on  the  other  hand,  might  look  like 
Figure  4. 

In  fact,  one  way  to  think  of  the  CONVERS  dictionary  is  merely  an 
"errector  set"  of  components  which  may  be  used  over  and  over  to  assemble 
an  ever  increasingly  sophisticated  set  of  modules  which  can  themselves 
be  employed  to  build  higher  level  functions  etc.,  any  level  of  which  can 
readily  be  intermixed  to  achieve  the  desired  program. 

Note  that  in  Figure  4 the  program  starts  at  A and  ends  at  A after 
going  through  a series  of  loops  to  other  programs  (entries).  What  advan- 
tage does  threaded  programming  have?  The  answer  to  this  question  is  sim- 
ple: each  entry  can  be  used  in  a variety  of  other  entries  because  each 
entry  represents  a logically  self-contained  program  unit.  In  the  linear 
programming  approach  illustrated  in  Figure  3,  the  operation  of  B i s "depen- 
dent on  A and  so  on.  It  would  be  difficult  to  extract,  say.  Step  C,  and 
use  it  between  E and  F unless  this  possibility  was  envisioned  when  the 
entire  program  was  written. 

The  statement  has  been  made  that  each  CONVERS  entry  represents  a 
separate  logical  entity.  How  then  do  parameters  pass  between  these 
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entries?  A threaded  code  structure  that  does  not  allow  for  efficient 
parameter  passing  would  be  totally  useless.  CONVERS  solves  this  require- 
ment by  using  a structure  known  as  a stack. 

THE  STACK 

The  stack  is  an  area  of  memory  set  aside  to  handle  numbers  and 
other  types  of  parameters.  The  stack  in  CONVERS  starts  at  high  memory 
and  grows  downward.  The  dictionary,  on  the  other  hand,  grows  upward  from 
the  support  system.  Parameters  are  pushed  on  and  popped  off  the  stack  by 
manipulating  the  stack  pointer.  The  stacV  pointer  always  points  to  the 
last  parameter  to  be  pushed  on  the  stack.  To  pop  a parameter  off  the 
stack,  a copy  of  the  parameter  is  made  into  the  desired  register(s)  as 
the  entry  is  executing  while  decrementing  the  stack  pointer  (actually  it 
is  incrementing  since  the  stack  "grows"  from  the  top  of  memory  toward 
lower  locations).  This  effectively  'removes'  the  number  from  the  stack. 

Note  that  while  entries  normally  only  remove  numbers  from  the  top  of  the 
stack,  there  exist  entries  that  copy  a parameter  at  any  level  under  the 
stack  and  push  the  copy  back  on  top  of  the  stack.  It  should  be  obvious 
that  the  stack  is  like  a rubberband  that  is  constantly  being  stretched 
and  contracted  as  entries  are  executing.  CONVERS  passes  approximately 
98%  of  all  parameters  through  the  stack. 

What  is  the  advantage  of  stack  architecture?  The  primary  advantage 
of  the  stack  is  that  entries  can  leave  temporary  parameters  on  the  stack 
(to  be  'later'  popped  off  and  used  in  other  entries)  without  specifically 
having  to  assign  memory  locations  to  store  these  parameters.  This  advan- 
tage is  more  important  than  just  a savings  in  memory  if  specific  areas  had 
to  be  reserved.  A given  entry  does  not  have  to  contain  addresses  for 
temporary  data  storage  making  the  entry  easily  relocatable,  i.e.  user 
defined  entries  can  be  stored  as  source  code  on  some  sort  of  mass  storage 
device  and  later  be  brought  in  and  compiled;  this  compiled  entry  can  now 
be  used  in  later  entries  without  regard  as  to  where  parameter  storage  is 
located  in  the  entry.  However,  allowing  some  parameters  to  have  a fixed 
location  can  be  useful  (in  the  case  of  initialization  constants  or  variables). 
In  this  case,  we  create  an  entry  that  stores  the  parameter  along  with  a 
code  that  will  push  the  parameter  on  to  the  stack  when  it  is  executed. 

Whenever  a new  entry  is  defined,  it  remains  as  part  of  the  CONVERS 
system.  Thus,  CONVERS  itself  expands  as  the  user  sits  at  the  terminal, 
i.e.  CONVERS  does  not  have  a limited  'command'  set.  A 'command',  of  course, 
is  any  entry  that  is  recognized  as  part  of  the  dictionary  at  that  moment 
in  time.  Any  entry  is  immediately  executed  by  simply  typing  the  entry 
name  followed  by  a space.  This  means  that  one  can  write,  using  CONVERS, 
a system  that  simulates  BASIC,  or  FORTRAN,  or  any  computer  language  for 
that  matter.  But  why  should  one  want  to?  CONVERS  can  best  be  thought 
of  as  a 'language'  to  write  languages.  In  the  typical  situtation,  the 
'language'  that  one  would  create  will  execute  some  task  or  series  of 
tasks.  All  the  entries  that  are  defined  to  execute  this  specific  task 
would  be  called  an  application  dictionary.  One  can  store  these  entries 
as  source  code  on  a mass-storage  device.  If  later  in  time  the  user  wishes 
to  execute  this  application  dictionary,  the  dictionary  would  simply  be 
loaded  and  recompiled  automatically  by  CONVERS.  Once  the  task  has  been 
conpleted,  the  application  dictionary  may  be  removed  by  the  user  or  the 
application  dictionary  can  even  remove  itself  while  requesting  a new 


application  dictionary  from  mass  storage.  The  ease  with  which  these 
application  dictionaries  can  be  swapped  in  and  out  is  a direct  function 
of  the  relocatable  nature  of  CONVERS  entries  made  possible  by  stack 
parameter  passing.  Since  the  stack  and  dictionary  are  separate,  one 
applicat*'  i dictionary  can  leave  parameters  for  the  next  application 
dictionary  to  operate  on.  This  is,  of  course,  what  virtual  memory  archi- 
tecture is  all  about;  a small  system  can  behave  like  a very  large  system 
with  only  speed  sacrificed. 

This  work  was  supported  in  part  by  the  Office  of  Naval  Research  and 
an  Alfred  P.  Sloan  Research  Fellowship  to  M.  Bonner  Denton. 
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Figure  1 : The  interpretative  cycle  of  common  types  of  languages 
such  as  BASIC.  After  examining  each  command  in  the  source  file,  the 
interpreter  branches  to  the  corresponding  block  of  machine  code;  thus, 
program  execution  always  remains  within  the  interpreter. 
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Figure  2.  Note  that  the  compiler  transforms  each  source  "command"  into 

executable  machine  code.  This  code  will  be  loaded  and  executed 
independently  of  the  compiler. 
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Figure  3.  Programming  structure  using  typical  high-level  languages. 

The  flow  of  logic  is  linear,  with  an  occassional  branch 
or  loop. 
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INTRODUCTION 


Part  I of  this  series  gave  an  introduction  to  a new  type  of  soft- 
ware system  called  CONVERS.  Several  of  the  concepts  behind  CONVERS,  in- 
cluding its  ability  to  separate  in  time  the  compile  and  execute  states, 
as  well  as  its  use  of  a stack  and  threaded  code  dictionary  were  discussed. 
This  article  will  deal  with  a variety  of  programming  examples  using 
CONVERS  designed  to  demonstrate  how  a conceptually  advanced  programming 
system  can  significantly  decrease  programming  time  and  effort. 

Manipulating  the  Stack 

As  stated  in  the  previous  article,  the  stack  is  an  extremely  impor- 
tant and  useful  structure  offered  by  CONVERS.  The  stack  is  a first  in- 
last out  temporary  storage  location.  Many  calculators  use  a stack  to 
internally  store  data  values  that  the  calculator  is  to  operate  on.  Thus, 
when  one  enters  a number  it  is  pushed  on  the  stack.  When  another  number 
is  entered,  it  is  pushed  on  top  of  the  previous  number,  an  operator  such 
as  the  '+'  key  adds  the  numbers  on  the  stack  together  and  replaces  the 
two  numbers  on  the  stack  with  the  sum.  Simultaneously,  the  sum  is  dis- 
pleyed  in  the  calculator  display  panel,  i.e.  the  display  presents  the  top 
number  on  the  stack. 

In  CONVERS,  the  stack  Is  manipulated  in  an  almost  identical  fashion. 

A number  can  be  pushed  on  the  stack  by  the  operator  from  a terminal;  if 
the  interpreter  recognizes  this  character  string  as  a number,  it  is  con- 
verted internally  (into  binary)  and  pushed  on  the  stack.  Thus,  to  push 
octal  (or  decimal)  five  onto  the  stack,  the  user  types  the  character  '5' 
followed  by  a space.  All  values  are  stored  on  the  stack  as  16-bit  values; 
thus,  in  the  8080  system,  numbers  are  stored  on  the  stack  as  two  bytes. 

To  examine  the  contents  of  the  top  number  on  the  stack,  a period  (.)  is 
typed;  the  top  nurtber  on  the  s tack  is  converted  according  to  the  specified 
number  base  and  displayed  on  the  terminal.  One  can  specify  base  eight 
or  ten  by  typing  'OCTAL'  or  'DECIMAL1,  respectively,  onto  the  terminal. 
Until  the  base  is  changed,  all  number  I/O  conversions  will  take  place 
according  to  the  current  base  value. 

To  minimize  the  capabilities  of  the  stack,  a variety  of  stack  opera- 
tors exist.  Table  A lists  the  most  common  operators  along  with  a brief 
discussion  of  the  function  of  the  operator. 
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Table  A is  in  no  way  complete;  however,  it  does  give  some  indica- 
tion of  the  types  of  stack  manipulation  routines  available  in  C9NVERS. 

As  with  all^  CONVERS  entries,  the  stack  operators  can  be  compiled  into 
new  entries.  For  example,  suppose  the  user  needs  to  add  some  constant, 
say  60,  to  a series  of  numbers  on  the  stack  and  output  the  value  to  the 
terminal  while  maintaining  the  number  on  the  stack.  The  user  might  first 
define  the  following  entry,  named  '.SIXTY+': 

: .SIXTY+  60  + DUP  . ; 

The  entry  '.SIXTY+'  illustrates  several  points.  First,  it  is  good  pro- 
gramming practice  to  choose  a name  for  a new  entry  so  that  the  required 
function  is  mnemonically  indicated.  This  practice  will  make  it  easier 
for  the  user  to  remember  an  entry's  function  at  a later  date.  Second, 
the  use  is  not  limited  to  the  operators  supplied  with  the  CONVERS  package. 
The  user  can  'tailor-make'  entries  at  will  to  suit  the  particular  needs  at 
hand.  The  third  point  to  be  made  is  that  constants  can  appear  inside  of 
definitions  as  is  the  case  with  the  ' .SIXTY-*-'  entry.  When  ' .SIXTY-*-'  is 
executed,  the  constant  60  is  pushed  on  the  stack,  whereupon  it  is  added 
to  the  number  found  on  the  stack  originally.  This  number  is  duplicated 
and  output.  Once  '.SIXTY+'  has  been  compiled,  it  can  itself  be  used  in 
new  entries.  For  example,  the  entry  'ANSWER',  defined  below,  will  output 
three  numbers  using  '.SIXTY+'  separated  by  one  space  between  each  number. 
The  definition  will  also  do  a final  carriage  return-line  feed. 

: ANSWER  .SIXTY+  SPACE  .SIXTY+  SPACE  .SIXTY+  CRLF  ; 

Obviously,  this  same  format  can  also  be  obtained  using  a "D0-L00P"  which 
will  be  described  shortly. 

Constants  and  Variables 

Every  computer  user  recognizes  the  need  to  be  able  to  define  con- 
stants and  variables.  'Local'  constants  are  easily  defined  as  was  the 
case  in  the  entry  '.SIXTY+',  where  the  constant  with  the  value  '60'  re- 
sides in  the  entry  itself.  (A  discussion  of  how  a constant  is  stored  in 
an  entry  must  come  later.)  Many  constants  are,  or  can  be,  local  in  nature. 
The  way  the  constant  '60'  is  compiled  into  the  entry  '.-SIXTY+'  is  an 
acceptable  way  of  introducing  local  constants.  However,  some  constants 
are  not  local  in  nature;  i.e.  the  constant  affects  several  aspects  of 
the  program  which  are  not  necessarily  related  in  time  or  space.  In  this 
case,  we  must  have  the  capability  of  defining  'global'  constants.  This 
means  that  the  value  of  the  constant  must  be  easily  accessible  at  any 
point  during  the  execution  of  the  'program'.  In  CONVERS,  one  defines 
constants  with  the  CONSTANT  entry: 

0 CONSTANT  ZERO 

In  the  above  example,  an  entry  'ZERO'  has  been  defined,  initialized  to 
the  value  zero.  Whenever  'ZERO'  is  executed,  the  value  zero  will  be 
pushed  on  the  stack.  Thus,  any  future  entry  can  be  compiled  using  'ZERO' 
knowing  the  'ZERO'  will  always  push  a zero  on  the  stack  when  executed. 

Since  any  entry  can  access  'ZERO',  'ZERO'  is  a global  constant. 
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Variable  defining  capabilities  are  as  important  as  constants  in 
any  software  system.  Variables  allow  for  dynamic  changes  in  program 
execution  to  take  place  by  reinitializing  the  variable  to  some  other 
value.  To  create  a variable  in  CONVERS,  the  'VARIABLE'  entry  is  used: 

10  VARIABLE  TIME 

In  this  example,  the  entry  'TIME'  has  been  initialized  with  the  value 
ten.  Whenever  TIME  is  executed,  the  address  where  the  variable  value  is 
stored  is  pushed  on  the  stack.  To  get  the  "val ue  itself,  the  entry  ' @ ' 
is  executed,  ' O'  replaced  the  address  found  on  the  stack  with  the  value 
stored  at  that  address.  Thus,  by  executing  the  character  string  'TIME  @' , 
the  value  10  will  be  pushed  on  the  stack. 

To  change  the  value  of  a variable,  the  entry  '!'  is  used.  This  entry 
stores  the  value  at  the  second  location  under  the  stack  at  the  address 
found  on  top  of  the  stack.  Thus,  to  reinitialize  'TIME'  to  the  value 
'20',  the  following  character  string  is  executed: 

20  TIME  ! 

This  string  first  pushes  20  and  then  the  address  of  TIME  onto  the  stack. 
Next,  the  top  number  on  the  stack  is  used  as  the  address  at  which  the 
second  number  is  deposited.  Whenever  'TIME  @'  is  now  executed,  20  will 
be  pushed  on  the  stack  until  reinitialized  at  a later  date. 

INDEVICE  and  OUTDEVICE 

The  ' INDEVICE*  and  'OUTDEVICE'  entries  are  provided  as  generalized 
I/O  definitions;  i.e.  they  will  input  or  output  data  to  or  from  the  stack 
respectively,  given  the  port  address  found  on  top  of  the  stack.  For 
example,  the  character  string  '0  10  OUTDEVICE'  will  output  the  value 
zero  to  port  ten..  The  'INDEVICE'  entry  is  used  to  input  data  and  push 
this  data  on  the  stack.  Again,  the  port  address  must  also  be  on  the 
stack  before  'INDEVICE'  is  executed.  For  example,  '10  INDEVICE'  will 
input  the  value  at  port  10  and  push  it  on  the  stack. 

In  a typical  hardware  configuration,  there  might  be  several  1/0 
ports  controlling  a variety  of  external  hardware.  As  an  example.  Figure  1 
shows  an  example  where  a monitor  and  a D/A  converter  are  'tied'  to  two 
output  ports,  30  and  31,  respectively.  An  A/D  converter  and  a high 
speed  type  reader  are  input  devices,  tied  to  input  ports  40  and  41,  res- 
pectively. However,  most  I/O  devices  also  need  encode  (start)  pulses  as 
well  as  a means  for  testing  flag  status.  Therefore,  two  other  ports  are 
needed.  Input  port  51  will  serve  as  the  flag  port  and  output  port  50 
will  be  defined  as  the  encode  port.  (Obviously,  all  port  addresses  are 
arbitrary.)  Each  bit  of  these  ports  will  be  tied  to  the  corresponding 
encode  or  flag  line  of  each  device  as  shown  in  Figure  1. 

Ignoring  encode  and  flag  functions,  it  is  a simple  matter  to  write 
1/0  drivers  to  input  or  output  data  to  these  ports.  For  Instance,  a 
monitor  'driver'  could  be  simply  written  as  follows: 

: MONITOR  30  OUTDEVICE  ; 
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The  definition  'MONITOR'  when  executed,  would  output  the  number  on 
the  stack  to  device  30,  which  is  the  monitor  port.  Similarly,  other 
drivers  could  be  written  for  each  of  the  other  devices;  for  instance, 
the  'A/D'  definition  below  would  input  the  data  value  from  port  40  (the 
A/D  port)  and  put  this  number  on  the  stack  whenever  'A/D'  is  executed: 

: A/D  40  INDEVICE  ; 

It  is  a simple  matter  to  include  encode  and  flag  testing  software 
into  these  definitions;  however,  the  reader  must  be  familiar  with  the 
CONVERS  conditional  testing  routines.  Thus,  a more  thorough  discussion 
of  I/O  software  will  come  later  in  this  article. 

IF-ELSE-THEN  (Conditional  Testing) 

The  entries  'IF',  'ELSE'  and  'THEN'  are  the  CONVERS  definitions  for 
executing  conditional  branches.  As  an  example,  the  definition  ' ?DEVI CE ' 
will  be  defined  as  follows: 

: 7DEVICE  IF  77  MONITOR  ELSE  A/D  THEN  ; 

The  entry  ' 7DEVICE ' , when  executed,  will  test  the  top  number  on  the  stack 
for  a non-zero  condition.  If  this  number  is  non- zero,  the  entries  between 
'IF'  and  'ELSE*  will  execute  and  control  will  pass  to  whatever  entries 
follow  'THEN'.  Otherwise,  the  entries  after  'ELSE'  will  execute.  Given 
the  previous  definitions  of  'MONITOR'  and  'A/D',  the  entry  ’ 7DEVI CE ' would 
print  a question  mark  (ASCII  77)  on  the  monitor  if  the  number  on  the  stack 
was  non-zero;  otherwise,  if  the  number  was  zero,  the  value  of  the  A/D 
converter  would  be  read  and  pushed  on  the  stack. 

Looping  Structures 

Conditional  looping  structures  in  CONVERS  work  much  like  those  in 
other  programming  languages.  For  example,  the  'VALUE'  definition  below 
will  be  defined  to  execute  the  previously  defined  entry  'A/D'  one  hun- 
dred times: 


: VALUE  100  1 DO  A/D  LOOP  ; 

The  DO-LOOP  structure  requires  the  upper  and  lower  indices  (in  that  order) 
to  be  on  the  stack  before  the  loop  is  executed.  Where  these  parameters 
come  from  is  not  important  as  long  as  they  are  there  before  execution  of 
the  loop.  In  the  'VALUE'  example  above  the  Indices  come  from  the  definition 
Itself  (100  and  1);  VALUE  could  just  as  well  have  been  compiled  as  follows: 

: VALUE  DO  A/D  LOOP  ; 

In  this  example,  the  user  (or  some  other  definition)  must  supply  the 
indices  before  'VALUE'  is  executed.  Obviously,  leaving  indices  out  of 
a looping  definition  makes  the  definition  more  general. 

The  special  definition  'I'  accesses  the  current  lower  index  of  a 
DO-LOOP  during  execution  of  the  loop.  As  an  example,  the  'MON I TOR- TEST'  test 
program  below  will  display  the  first  30  ASCII  characters  on  the  monitor: 
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: MONITOR-TEST  30  1 DO  I MONITOR  LOOP  ; 

The  definition  'I'  would  initially  push  the  number  'one'  on  the  stack 
the  first  time  through  the  loop.  This  number  is  then  sent  to  the  monitor. 
The  next  time  through  the  loop  'I'  would  push  the  number  'two'  on  the 
stack,  and  so  on.  The  last  time  through  the  loop,  'I'  would  push  on  the 
stack  the  number  thirty  which  is  the  upper  index  value. 

CONVERS  allows  for  the  nesting  of  loops  with  the  same  general  con- 
siderations as  encountered  in  other  common  computer  languages.  The  most 
important  consideration  is  that  an  inner  loop  must  lie  entirely  within 
the  next  outer  loop.  The  special  definition  ' J ' allows  an  inner  loop 
to  access  the  next  outer  loop's  index: 


INNER-DISPLAY  20  0 DO  I 


OUTDEVICE  LOOP 


: INITIALIZE  10  0 DO  INNER-DISPLAY  LOOP  ; 

The  entry  'INITIALIZE'  would,  if  executed,  output  the  first  21 
integer  numbers  to  the  first  eleven  I/O  ports.  Note  that  'INNER- DISPLAY' 
gets  the  port  address  by  executing  'J'  which  puts  the  outer  index  on  the 
stack.  The  current  inner  index  value  (found  by  executing  'I')  is  sent 
to  this  port  each  time  through  the  loop.  If  it  was  necessary  to  loop 
entries  three  levels  rfeen.  the  'K*  definition  would  be  used  to  access 


entries  three  levels  deep,  the 
the  current  outer  loop  index. 


BEGIN-HERE  and  BEGIN  (Unconditional  Looping) 

The  'DO-LOOP'  construct  is  useful  in  looping  structures  which  require 
a known  number  of  looping  'passes'  to  execute  before  the  loop  ends.  In 
many  cases,  it  is  not  known  how  many  passes  the  loop  will  take  before  the 
loop  should  terminate;  this  is  especially  the  case  when  a program  loops 
until  some  specified  condition  (flag)  is  detected.  As  an  example,  the 
software  driver  controlling  the  high-speed  reader  will  be  defined  below. 

It  will  be  assumed  that  every  'read'  operation  from  the  reader  port  (port 
41  as  defined  in  Figure  1)  will  clear  the  flag: 

: READER  BEGIN-HERE  51  INDEVICE  10  AND 
IF  41  INDEVICE  ELSE  BEGIN  THEN  ; 

Note  that  the  'READER'  definition  starts  with  the  'BEGIN-HERE'  entry. 

This  definition  sets  up  a pointer  to  which  the  'BEGIN'  entry  will  refer 
back.  The  flag  port  contents  are  input;  this  value  is  logically  'ANDED' 
with  the  value  10.  This  octal  value  corresponds  to  the  value  of  the 
flag  bit  from  the  reader.  The  logical  'AND'  operation  will  leave  either 
a zero  or  a 10  on  the  stack  depending  on  the  condition  of  the  reader  flag. 

A non- zero  condition  indicates  that  a new  data  value  from  the  reader  is 
ready  for  input;  this  value  is  read  from  port  41  and  the  'READER'  definition 
ends.  A zero  flag  will  cause  the  'BEGIN'  entry  to  execute,  sending  control 
back  to  the  'BEGIN-HERE'  pointer.  Thus,  this  structure  causes  the  entry 
to  continually  loop  until  the  respective  flag  has  been  set.  Similarly, 
the  A/D  driver  can  be  extended  to  include  flag  checking: 

: A/D  BEGIN-HERE  51  INDEVICE  4 AND 
IF  40  INDEVICE  ELSE  BEGIN  THEN  ; 
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Note  that  the  flag  bit  (bit  2)  corresponds  to  an  octal  value  of  four. 

The  'A/D'  definition  will  continually  loop  until  bit  2 has  been  set,  at 
which  time  the  data  from  the  A/D  will  be  read  from  port  40. 

Software  drivers  can,  likewise,  be  written  to  handle  the  rest  of  the 
I/O  devices  in  Figure  1.  Obviously,  it  would  be  an  easy  matter  to  write 
a software  driver  for  any  user-defined  I/O  device  given  any  hardware  con- 
figuration. As  is  the  case  with  all  CONVERS  entries,  these  drivers  are 
compiled  when  originally  defined,  retaining  a speed  advantage  in  the  some- 
times critical  executi on-time  I/O  environment. 

CONCLUSION 


Although  many  of  the  standard  high-level  CONVERS  definitions  have 
not  been  covered,  this  article  should  acquaint  the  user  with  the  types 
and  nature  of  the  CONVERS  entries  already  defined.  Most  programming 
needs  can  draw  upon  these  standard  entries.  It  is  the  user's  responsi- 
bility to  compile  the  required  specialized  routines  from  these  standard 
entries  for  the  particular  application  at  hand. 

This  work  was  supported  in  part  by  the  Office  of  Naval  Research  and 
an  Alfred  P.  Sloan  Research  Fellowship  to  M.  Bonner  Denton. 

TABLE  A 


OPERATOR 

DUP 

SWAP 


MIN 

MAX 

X UNDER 

SWITCH 

DROP 

POP 


FUNCTION 

Converts  and  outputs  the  top  number  on  the  stack  according 
to  the  user-selected  numerical  base. 

Duplicates  the  top  number  on  the  stack  and  pushes  the  copy 
on  top  of  the  stack. 

Swaps  the  top  two  numbers  on  the  stack. 

Adds  top  two  numbers  on  the  stack— replaces  two  numbers 
with  the  sum. 

Subtracts  the  top  number  from  the  bottom  number  and  replaces 
the  two  numbers  with  the  difference. 

Replaces  the  top  two  numbers  on  the  stack  with  the  minimum 
of  the  two  numbers. 

Replaces  the  top  two  numbers  on  the  stack  with  the  maximum 
of  the  two  numbers. 

Locates  the  number  at  the  location  (specified  by  displace- 
ment 'X'  from  the  top  of  the  stack)  and  copies  it  on  top  of 
the  stack.  Thus,  to  COPY  the  fourth  number  under  the  stack 
back  on  top  of  the  stack,  one  would  type  '4  UNDER*  on  the 
terminal . 

'SWITCHES'  the  8 LSB's  and  8 MSB's  of  the  number  on  top  of 
the  stack. 

Removes  the  top  number  on  the  stack. 

'POPS'  the  top  byte  on  the  stack  and  puts  it  into  the  'A' 
register. 


PUSH  'PUSHES'  the  byte  in  the  'A'  register  to  the  top  of  the  stack. 

< Replaces  the  top  two  numbers  on  the  stack  with  a T if  the 

bottom  number  is  less  than  or  equal  to  the  top  number;  other- 
wise, a zero  is  pushed  on  the  stack. 

> Replaces  the  top  two  numbers  on  the  stack  with  a 'V  if 

the  bottom  number  is  greater  than  or  equal  to  the  top  number; 
otherwise,  a zero  is  pushed  on  the  stack. 

= Replaces  the  top  two  numbers  with  a 'V  if  the  two  numbers 

are  equal;  otherwise,  a zero  is  pushed  on  the  stack. 

0<  Replaces  the  top  number  on  the  stack  with  a ' 1 ' if  the  number 

is  negative  (MSB  is  one);  otherwise,  a zero  is  pushed  on  the 
stack. 

COMPLEMENT  Complements  the  top  number  on  the  stack  (one's  complement). 

MINUS  Complements  and  increments  the  top  number  on  the  stack  by 

one  (two's  complement). 

AND  Logically  'AND's'  top  two  numbers  on  the  stack,  the  result 

replaces  the  two  numbers. 

1+  Adds  one  to  the  top  number  on  the  stack.  ('1+'  operates 

much  faster  than  adding  one  to  the  number  on  stack.) 

1-  Decrements  top  number  on  the  stack  by  one.  (This  is  a fast 

decrement. ) 


TABLE  A (Cont.) 

A sample  of  the  stack  operators  provided  in  the  Standard  High-Level 
Dictionary. 
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INTRODUCTION 

The  first  two  articles  in  this  series  discussed  the  fundamental 
concepts,  advantages,  and  applications  of  CONVERS.  CONVERS  is  relatively 
easy  to  understand  at  all  levels,  making  it  useful  for  those  experimenters 
who  want  to  both  customize  it  for  unique  environments  as  well  as  to  write 
new  versions  for  other  CPU's.  Given  a source  listing  of  CONVERS  one  can 
'decode'  the  system.  However,  by  understanding  the  basic  principles  of 
CONVERS,  decoding  and  translating  efforts  are  vastly  simplified.  The  aim 
of  this  article  is  to  describe  these  basic  principles  and  to  give  examples 
of  these  principles  by  describing  particular  sections  of  the  code.  This 
article  will  conclude  with  an  8080  object  code  listing  of  the  CONVERS 
initial  machine  code  dictionary  (ISCD)  and  a source  code  listing  of  the 
CONVERS  standard  high-level  dictionary;  an  object  lising  is  not  necessary. 

The  Dictionary 

The  most  basic  concept  of  CONVERS  is  the  dictionary  which  was  des- 
cribed in  a general  manner  in  Parts  I and  II.  The  dictionary  is  made  up 
of  a series  of  entries,  one  stacked  on  top  of  the  other.  Each  entry  has 
four  elements  associated  with  it:  the  name,  the  link,  the  code  pointer, 
and  the  body  of  the  entry  containing  executable  machine  code]  Each  of 
these  elements  will  be  described  in  turn. 

The  name  of  the  entry  is  defined  in  the  first  four  bytes  of  the 
entry.  The  first  byte  contains  the  total  number  of  characters  of  the 
entry  name  (see  Figure  1).  Following  the  character  count  are  three  bytes 
which  contain  the  first  three  characters  of  the  name  (if  the  name  has  less 
than  three  characters,  the  extra  bytes  will  be  zeroed).  All  entries  are 
uniquely  defined  by  these  four  parameters.  This  is  important  to  keep  in 
mind  since  an  entry  called  'DUMB'  would  have  the  same  CONVERS  name  as  a 
'DUMP'  entry.  Since  a potential  problem  could  be  created  by  different 
entries  with  identical  names,  CONVERS  searches  the  dictionary  for  an  iden- 
tical name  whenever  the  user  creates  a new  entry.  The  user  is  warned  of 
the  existence  of  the  duplicate  entry  by  the  diagnostic  message,  'SURE', 
being  displayed  on  the  terminal.  The  user  has  the  option  of  redefining 
the  entry  by  typing  a carriage  return  character  and  entering  another  name. 

The  link  of  each  entry  is  contained  in  the  next  two  bytes  after  the 
name.  The  link  always  points  to  the  first  byte  (the  character  count)  of 
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the  entry  immediately  below  it  in  the  dictionary.  The  very  first  entry 
has  a link  word  of  zero.  Given  the  linking  structure  of  the  dictionary, 
it  is  easy  to  visualize  how  dictionary  searches  are  accomplished.  For  in- 
stance, suppose  the  user  wishes  to  execute  the  period  (.)  entry.  Remember 
from  the  previous  article  that  this  entry  converts  and  outputs  the  top 
number  on  the  stack.  The  user  would  type  the  period  followed  by  a space. 
The  'SEARCH'  entry  is  called  by  the  main  executive  routine.  The  entry 
'SEARCH'  compares  the  period  against  the  last  entry  in  the  dictionary. 

If  this  entry  does  not  match,  'SEARCH'  compares  the  next  entry  in  the 
dictionary.  Remember  that  the  location  of  the  next  entry  is  pointed  to 
by  the  link  of  the  previous  entry  (see  Figure  2).  Searching  stops  when- 
ever the  entry  is  located  or  a link  word  of  zero  is  detected. 

The  code  pointer  follows  the  link  word.  It  points  to  the  starting 
location  of  the  entry;  this  is  normally  the  first  byte  in  the  body.  By 
changing  the  code  pointer  address,  any  entry  can  begin  execution  at  any 
point  in  memory.  This  is  what  in  fact  is  done  when  'OCTAL'  or  'DECIMAL' 
is  typed  on  the  terminal;  the  code  pointer  of  the  corresponding  number 
conversion  routines  are  changed  to  point  to  the  respective  octal  or  deci- 
mal version.  The  'EXECUTIVE'  routine  compiles  or  executes  entries  at  the 
address  found  at  the  code  pointer. 

The  body  of  each  entry  contains  executable  machine  code.  This  code 
is  supplied  in  four  basic  ways.  The  first  is  for  the  user  to  compile 
machine  code  definitions;  the  code  placed  in  the  body  of  the  definition 
is  that  explicitly  supplied  by  the  user.  The  second  way  is  for  other  de- 
finitions to  place  code  in  the  body  of  the  new  definition  (i.e.  assembler 
routines).  The  third  is  to  compile  a new  entry  using  previous  entries; 
in  this  case,  the  'EXECUTIVE'  supplies  'calls'  to  the  entries  defining  the 
new  definition.  The  destination  address  of  the  'call'  is  the  address 
found  at  the  code  pointer  of  the  entry.  In  the  fourth  case,  machine  code 
is  supplied  by  the  'NUMBER'  routine  which  deposits  a call  to  'LITERAL' 
followed  by  the  number  found  on  top  of  the  stack.  The  'number  handling' 
routines  will  be  discussed  later. 


The  Stack 


As  outlined  in  the  first  article,  the  dictionary  resides  in  low 
memory  and  the  stack  in  high  memory.  The  two  routines,  'PUSH'  and  'POP', 
add  and  remove  single  byte  quantities  from  the  stack  while  respectively 
decrementing  and  incrementing  the  stack  pointer.  The  stack  pointer  al- 
ways points  to  the  last  datum  to  be  added  to  the  stack.  These  two  rou- 


tines also  check  for  stack  underflow  and  overflow.  Flow  charts  describing 
these  routines  are  given  in  Figures  3 and  4. 

Since  all  stack  operations  are  ultimately  performed  by  the  'PUSH' 
and  'POP'  entires,  double  byte  stack  manipulation  routines  must  execute 
'PUSH'  or  'POP'  twice  in  order  to  add  or  remove  two  byte  values.  Most 
stack  entries  treat  numbers  as  16  bit  values. 

Simple  number  manipulations,  including  logical  operations,  are  per- 
formed in  the  internal  registers  of  the  CPU.  The  two  routines,  'STKDE' 
and  'STK-BC',  allow  two  byte  values  on  the  stack  to  be  deposited  into 
these  registers  through  manipulation  of  the  'POP'  entry.  Since  the  'POP' 
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entry  only  affects  the  H & L register  pair,  data  may  be  deposited  into 
either  the  'B  & C'  or  'D  & E'  register  pair  without  affecting  the  con- 
tents of  the  other  register  pair.  Stack  operators  that  perform  mathemati- 
cal or  logical  functions  '•all  either  or  both  the  'STK-BC'  or  1 STKDE ‘ 
entries,  perform  the  function  by  proper  manipulation  of  these  internal 
registers  and  push  the  result  back  on  the  stack.  This  latter  operation 
is  performed  by  calling  either  the  ' BC-STK ' or  1 DE-STK ' entry.  These 
entries  push  the  respective  register  contents  back  on  the  stack  by  mani- 
pulation of  the  'PUSH'  routine.  Since  the  'PUSH'  routine  only  affects 
the  contents  of  the  ' H & L ' register  pair,  the  'BC-STK'  or  'DE-STK'  rou- 
tine will  also  execute  without  affecting  the  contents  of  the  other  regis- 
ter pair. 

The  Executive 

The  most  important  routine  in  CONVERS  is  the  'EXECUTIVE'  routine. 

The  'EXECUTIVE*  routine  is  the  essence  of  CONVERS  providing  the  system 
monitor,  execute  and  compile  loop,  and  general  control  of  the  system. 

It  is  the  function  of  the  'EXECUTIVE'  to  pull  together  all  the  other 
routines  in  the  initial  machine  code  dictionary  to  make  a working  system. 

Upon  completion  of  any  entry  entered  on  the  terminal,  control  will 
always  be  passed  back  to  the  EXECUTIVE.  The  EXECUTIVE  initially  pushes 
its  starting  address  on  the  hardware  return  stack  (the  3080  return  stack 
is  a CPU  controlled  stack  that  contains,  primarily,  the  return  address  of 
one  routine  when  executing  a 'call'  to  another  and  should  not  be  confused 
with  the  main  stack  in  high  memory).  Since  all  entries  contain  a return 
instruction,  upon  execution  of  the  return  instruction,  control  will  be  passed 
back  to  the  start  of  the  'EXECUTIVE'  providing  that  the  return  stack  has 
not  been  perturbed.  Due  to  the  difficulty  of  mixing  data  and  return  ad- 
dresses on  one  stack,  a software  stack  was  created  to  hold  data  and  other 
program  parameters.  The  two  entries,  'PUSH'  and  'POP1,  have  the  responsi- 
bility of  controlling  the  software  stack. 

Since  all  entries  to  be  executed  or  compiled  come  from  a terminal 
or  a mass  storage  device,  the  'EXECUTIVE'  first  calls  the  ' UPDI CT ' rou- 
tine. This  routine  has  the  responsibility  of  depositing  the  entry  name 
at  the  end  of  the  dictionary.  A flow  chart  describing  the  ' UPDICT ' rou- 
tine is  shown  in  Figure  5.  A system  variable,  the  Dictionary  Pointer  (D.P.), 
always  contains  the  last  byte  to  be  permanently  added  to  the  dictionary. 

The  'UPDICT'  routine  deposits  the  entry  name  starting  after  the  dictionary 
pointer. 


The  'EXECUTIVE'  must  now  call  the  'SEARCH'  entry  to  determine  whether 
the  entry  entered  from  the  terminal  (or  mass  storage)  is  contained  in  the 
dictionary.  The  'SEARCH'  routine,  upon  completion,  either  leaves  a zero 
or  the  address  of  the  code  pointer  of  the  located  entry  on  the  stack.  A 
non-zero  value  on  the  stack  indicates  that  the  ent^  name  deposited  by 
'UPDICT'  matches  an  entry  name  in  the  dictionary.  At  this  point,  the 
EXECUTIVE  will  branch  to  execute  one  of  two  separate  functions  depending 
on  the  value  of  the  number  on  the  stack.  If  this  number  is  zero,  the 
'EXECUTIVE'  will  branch  to  the  'NUMBER'  routine.  This  particular  branch 
will  be  described  in  detail  later. 
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If  the  value  left  on  the  stack  by  the  'SEARCH'  entry  is  non-zero, 
the  'EXECUTIVE'  must  determine  whether  the  located  entry  is  to  be  compiled 
or  executed.  Since  some  entries  must  be  executed  during  a compiling  pro- 
cedure while  others  need  to  be  located  and  the  starting  addresses  compiled, 
a mechanism  must  be  provided  to  designate  the  proper  action.  The  'EXECU- 
TIVE' determines  this  by  comparing  the  'precedence'  value  of  the  entry 
against  a 'STATE'  variable.  The  precedence  value  of  all  entries  is  con- 
tained in  the  most  significant  bit  of  the  character  count  byte  of  each 
entry  (see  Figure  1).  The  precedence  value  of  each  entry  is  either  zero 
or  one  depending  on  whether  the  entry  has  low  or  high  precedence.  If  the 
precedence  value  is  equal  to  or  greater  than  'STATE1,  the  entry  is  exe- 
cuted. Otherwise,  the  entry  is  compiled. 


The  'STATE'  variable  is  controlled  by  the  colon  (:)  and  semicolon  (;) 
entries.  The  colon  entry  sets  the  'STATE'  to  one.  Only  the  entries  with 
precedence  values  of  one  will  execute,  all  other  entries  will,  instead,  be 
compiled.  As  an  example,  suppose  the  system  is  in  the  compile  mode  ('STATE* 
equal  to  one)  and  the  user  types  'BELL'  on  the  terminal.  Since  the  prece- 
dence values  of  definitions  such  as  'BELL'  are  zero,  these  entries  are  com- 
piled; i.e.  a 'call'  to  the  address  of  'BELL'  is  deposited  at  the  end  of 
the  dici tonary  and  the  dictionary  pointer  is  incremented.  However,  if  the 
system  is  in  the  execute  mode,  'STATE*  will  be  zero  and  'BELL'  will  ring  the 
terminal  bell.  The  colon  entry  also  has  the  function  of  supervising  the 
input  of  the  new  dictionary  entry  name. 


The  semicolon  (;)  entry  is  used  to  end  the  compilation  of  the  new 
entry.  It  does  this  by  zeroing  'STATE'.  This  has  the  effect  of  returning 
the  system  back  to  the  execute  mode  as  discussed  above.  The  semicolon 
entry  also  deposits  a return  instruction  (311  octal)  into  the  dictionary 
and  officially  adds  the  new  entry  to  the  dictionary  by  updating  the 
'LINKWORD'  variable.  The  ' LI NKViORD ' variable  always  points  to  the  first 
byte  (the  character  count)  of  the  last  entry  to  be  compiled  into  the  dic- 
tionary. This  variable  is  used  by  the  'SEARCH'  entry  as  the  location  to 
begin  dictionary  searches.  The  'LINKWORD'  variable  is  not  updated 
until  the  entry  has  been  totally  compiled.  This  explains  why  a new  entry 
can  compile  into  itself  an  'older'  entry  with  the  same  dictionary  name.  A 
flow  chart  describing  the  'EXECUTIVE'  routine  is  shown  in  Figure  6. 

The  Number  Routine 


In  the  previous  discussion  of  the  'EXECUTIVE'  it  was  stated  that  if 
an  'entry'  entered  on  the  terminal  was  not  located  in  the  dictionary,  a 
jump  to  the  'NUMBER'  routine  was  made,  the  logical  reason  for  jumping  to 
'NUMBER'  at  this  point  is  simple — if  the  'entry'  is  not  a definition,  it 
must  either  be  interpreted  as  a number  or  as  an  error.  'NUMBER'  deter- 
mines in  a very  simple  fashion  whether  the  'entry'  entered  on  the  terminal 
(or  from  mass  storage)  should  be  interpreted  as  a number;  it  tests  each 
character  to  see  if  it  is  between  octal  60  and  67  inclusive  for  the  octal 
case  and  60  and  71  inclusive  for  the  decimal  case.  Obviously,  these 
ASCII  values  represent  the  numbers  al loived  in  each  respective  number  sys- 
tem. If  one  or  more  characters  entered  lie  outside  the  above  values,  an 
error  is  assumed  and  the  error  message  ' ?2 ' is  output  to  the  terminal. 

One  could  have  misspelled  a definition  name  or  thought  that  a certain  de- 
finition existed  which  did  not  at  that  time  (see  Figure  7). 


Suppose  the  character  string  can  be  interpreted  as  a number.  In 
this  case,  the  character  string  is  converted  to  a 16-bit  binary  value  de- 
pending on  the  base  chosen  (octal  or  decimal).  This  is  done  by  a call  to 
the  'OCTAL*  or  'DECIMAL*  conversion  routine,  respectively.  The  converted 
binary  number  is  then  'pushed'  on  the  stack  as  two  bytes. 

The  'NUMBER'  routine  must  now  do  one  more  test  before  returning. 

It  must  test  'STATE'  to  see  whether  the  number  should  be  left  on  the  stack 
('STATE'  equal  to  zero)  or  compile  the  number  into  the  dictionary  if 
'STATE'  is  one.  It  does  the  latter  by  compiling  a cal1  to  'LITERAL'  and 
then  depositing  the  number  into  the  dictionary,  as  discussed  in  the  pre- 
vious article  (remember  the  '.sixty+'  compilation).  The  final  return  in- 
struction of  'NUMBER'  places  control  back  to  the  start  of  the  'EXECUTIVE'. 

CONCLUSION 


This  article  has  focussed  on  an  in-depth  look  into  the  logical  pro- 
gram flow  of  the  CONVERS  Initial  Machine  Code  dictionary  (IMCD).  Although 
a number  of  routines  are  needed  to  successfully  emulate  the  Initial  Machine 
Code  dictionary  (IMCD)  on  other  CPU's,  it  should  be  emphasized  that  each 
particular  routine  is  logically  rather  simple.  It  is  only  when  taken  as 
a whole  that  the  CONVERS  system  becomes  so  powerful. 

An  object  listing  of  the  Initial  Machine  Code  dictionary  (IMCD)  is 
given  in  Figure  8.  An  octal  loader  should  be  used  to  load  memory  starting 
at  octal  100.  The  Initial  Machine  Code  dictionary's  starting  address  is 
1752  octal.  Once  it  is  loaded  and  running,  it  will  itself  compile  the  rest 
of  Standard  CONVERS;  a source  listing  is  given  as  Figure  9.  The  version 
given  here  is  for  12k  of  memory.  To  reconfigure  for  another  memory  size, 
the  procedure  outlined  in  Table  I should  be  followed. 

Table  II  lists  the  contents  and  memory  location  of  the  terminal  I/O 
routines.  These  routines  may  also  need  to  be  reconfigured  (or  rewritten) 
depending  on  the  user's  particular  terminal  or  interface. 

This  work  was  partially  supported  by  the  Office  of  Naval  Research  and 
by  an  Alfred  P.  Sloan  Foundation  Research  Fellowship  to  M.  Bonner  Denton. 
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Figure  5.  The  'UPDICT'  flow  chart.  'UPDICT'  Is  used  to  Input  dictionary 
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Figure  6.  The  flow  chart  of  the  'EXECUTIVE'  routine. 
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<3  71 

776 

343 

315 

324 

331 

17? 

315 

32  4 

991 

257 

?6? 

337 

??3 

3/3 

35? 

773 

775 

134 

125 

1 15 

1 34 

313 

?5  6 

000 

3 15 

366 

7 3 4 

311 

??0 

274 

127 

125 

123 

246 

333 

273 

333 

315 

165 

77? 

05? 

337 

p on 

753 

1 67 

7 42 

3 77 

k1 7 7 

31  1 

303 

363 

303 

123 

117 

1 ?0 

263 

000 

321 

/n 

05^ 

337 

J5  1 

174 

767 

377 

33  7 

374 

3 76 

361 

33? 

344 

333 

306 

?si 

3^3 

221 

777 

252 

3 77 

777 

1 76 

7 43 

34? 

337 

3 ? ? 

31  1 

3*6 

124 

124 

131 

31  1 

0?  PI 

365 

330 

315 

757 

301 

315 

231 

331 

'<■’?  4 

31? 

3 15 

324 

001 

^r3 

735 

37? 

374 

l-  25 

3 /? 

3 74 

00  0 

3 1 1 

3 03 

33? 

036 

1 17 

125 

1 ? 4 

35? 

cv~. 

72  4 

./I 

3 66 

333 

737 

3 46 

203 

3 1 0 

??5 

3?  1 

361 

3 23 

0.M 

3 1 1 

1 ?5 

1?3 

1 24 

1 13 

<'  1 4 

H71 

75? 

731 

3 15 

3?  1 

033 

1 ?7 

315 

321 

2?? 

137 

3!  I 

•7r’  1 

1 i'i.' 

‘•Y? 

tM?3 

/47 

071 

371 

331 

3 15 

05  0 

3?i 

* 3? 

3 15 

273 

007' 

3 

73? 

315 

273 

7 73 

3 1 1 

?'•? 

r,61 

IP  1 

7 '''3 

361 

001 

1 1 6 

301 

3 15 

35? 

//I 

. 3" 

3 1 5 

273 

k : e 

3 1 1 

7. >3 

1 34 

125 

1 ?0 

1 06 

331 

136 

301 

3 15 

353 

• ’1 

315 

1 5? 

771 

315 

1 6i 

771 

31  1 

736 

104 

105 

355 

126 

3?  1 

16? 

??1 

1 73 

315 

2 73 

. /? 

1 72 

315 

273 

330 

3 1 1 

336 

1 ?3 

1 ?4 

1 13 

153 

0?1 

271 

:ti 

315 

321 

"V? 

1 77 

3 15 

321 

303 

1 17 

3 1 1 

336 

132 

1 33 

355 

171 

001 

ppp 

S*f  1 

171 

315 

273 

7 7 7 

177 

3 15 

2 73 

3/0 

311 

334 

123 

127 

I?1 

212 

< :'! 

2 43 

PPM 

315 

27 1 

771 

3 15 

350 

001 

3 15 

222 

001 

315 

160 

3?  1 

3 1 1 

f»74 

1 H 

175 

1 2? 

?33 

f\S  1 

277 

001 

35? 

130 

3 33 

043 

353 

3 15 

IS? 

001 

31  1 

<■'74 

1 1? 

175 

12  1 

P.6.1 

031 

3 1 1 

001 

352 

1 3? 

333 

3 53 

315 

16? 

001 

31  1 

730 

??? 

77? 

761 

753 

03? 

331 

301 

333 

331 

315 

353 

3?1 

??3 

3 15 

1 6? 

V?\ 

311 

7?4 

1 17 

126 

1 35 

323 

331 

353 

331 

076 

?63 

37? 

147 

356 

if' ft 

» 53 

136 

P53 

I °6 

3 15 

167 

?31 

31  1 

3 33 

303 

334 

104 

122 

117 

3 43 

P/'l 

pie  3 

pvp 

315 

321 

77  7 

315 

321 

333 

3 1 1 

376 

123 

135 

I'M 

3 73 

37  I 

HO  O 

fa? 

75? 

1 7? 

? 75' 

?4? 

135 

3?? 

353 

35? 

13? 

33? 

3 43 

016 

? >4 

032 

3 4* 

1 77 

276 

3^? 

P6? 

?0? 

343 

3?3 

315 

3 0? 

33  7 

30? 

323 

??3 

3 15 

1 67 

f>  0 | 

31  1 

350 

135 

37? 

3 53 

323 

323 

323 

323 

33? 

3?6 

33? 

157 

703 

03° 

3 1 0 

l?l 

ono 

Of><7 

37? 

1 47 

1?  40 

135 

33? 

353 

35? 

100 

033 

3 43 

333 

035 

r-nry 

3 or, 

?rv 

3?? 

173 

77? 

147 

3 53 

3 33 

056 

03? 

33? 

3?? 

311 

??? 

334 

1 *3 

1 00 

1 1 4 

31? 

l'.'? 

! 47 

37? 

376 

315 

3 15 

024 

301 

076 

012 

315 

324 

r(7| 

311 

775 

123 

1 27 

191 

137 

372 

1 7? 

33? 

376 

043 

315 

724 

0?  1 

311 

E 

I 
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PART  2 


CP  5 

132 

1 05 

1 22 

162 

002 

211 

002 

3 15 

2 y l 

001 

076 

000 

270 

302 

*33 

(7? 

271 

322 

233 

002 

257 

311 

000 

000 

new 

067 

311 

0/0 

000 

000 

vf’7 

117 

103 

124 

201 

PP2 

250 

0P2 

052 

10P 

000 

043 

1/6 

3 53 

257 

147 

157 

P76 

0/5 

273 

32.2 

3/  1 

002 

023 

P32 

326 

06/ 

007 

007 

007 

157 

006 

' 15 

0*3 

P32 

326 

06/ 

2.05 

157 

005 

3 12 

321 

002 

051 

051 

051 

3P3 

301 

0P? 

353 

315 

1 60 

00! 

311 

006 

I 16 

125 

1 15 

240 

00? 

336 

PP2 

315 

270 

{‘/‘I 

315 

071 

IrJfc:  1 

315 

2 7/ 

PP1 

315 

333 

0/1 

315 

05  Z 

0*1 

315 

201 

001 

*3° 

3 76 

0>6P 

332 

420 

P/3 

3 76 

P70 

3.22 

020 

003 

223 

015 

3P2 

3 6/ 

002 

315 

25* 

/?? 

P72 

33  7 

0P3 

376 

P00 

310 

315 

25  6 

003 

315 

076 

0P3 

311 

..?l 

i>4/ 

HP  3 

315 

165 

0/ 1 

02 1 

003 

0(10 

315 

160 

001 

315 

3 65 

000 

311 

t 77 

Mi’ 

FS? 

1 M 

04  l 

P/0 

/>  p (■; 

326 

MW  2 

05  3 

CHJ3 

315 

P50 

001 

315 

201 

•VI 

3 s3 

161 

i43 

160 

31  1 

001 

P54 

'/  0 0 

000 

043 

0/3 

076 

0/3 

3 15 

2/1 

0/1 

P52 

1 <*'6 

000 

P 43 

161 

043 

160 

042 

1 0P 

000 

311 

00/ 

000 

P?p 

0PP 

f '3 

•?.«/ 

(■’?•? 

00/ 

PC  5 

1 05 

1 16 

124 

*66 

0 03 

134 

003 

05* 

1*0 

043 

P4? 

1 77 

P»3 

P 43 

043 

P 43 

P43 

353 

052 

1 P2 

0*0 

175 

/?.? 

023 

174 

02? 

•n; 

l 4* 

153 

CM3 

p 43 

1 75 

02.2 

023 

174 

0*2 

353 

04? 

10P 

$m 

311 

pei 

f;  as 

«d? 

0/0 

P/4 

1 14 

1 1 1 

1 16 

12.4 

003 

213 

*03 

052 

177 

003 

042 

ip? 

i7-1? 

31  1 

002 

061 

054 

P.PP 

203 

003 

232 

003 

315 

201 

001 

052 

100 

cep 

243 

161 

242 

1 0/ 

ea? 

3 1 1 

007 

114 

1 1 1 

124 

222 

0/3 

256 

003 

021 

270 

*03 

315 

1 62 

PP1 

3 15 

3 16 

0P3 

3 1 1 

000 

341 

124 

135 

043 

043 

345 

3 15 

1 f" 

0*1 

315 

*71 

001 

311 

25)7 

103 

117 

1 15 

246 

003 

316 

003 

076 

315 

3 15 

2 73 

rnc 

*76 

P2P 

3 15 

273 

000 

315 

232 

003 

315 

076 

003 

311 

000 

r 7/1 

PP* 

»l  I 

1F5 

13/ 

1 P5 

306 

003 

352 

PP3 

06  1 

34W 

025 

041 

352 

003 

315 

1 14 

315 

P22 

PP,2 

315 

136 

001 

315 

21  1 

002 

332 

0?6 

004 

315 

0P3 

222 

3/3 

33  6 

0/2 

315 

136 

0PI 

315 

050 

001 

353 

021 

3 72 

377 

P31 

P72 

33  7 

PP3 

1 17 

1 76 

346 

200 

271 

332 

P44 

004 

3 15 

071 

021 

3 15 

*SP 

0*1 

353 

351 

315 

07  1 

001 

315 

316 

PP3 

311 

000 

000 

000 

004 

103 

1 17 

1*4 

3 42 

P*S 

266 

PP  4 

315 

1 14 

000 

P72 

154 

0P4 

376 

0PP 

3 02 

1 1? 

P/M 

316 

799 

f P2 

315 

2|  1 

0O2 

332 

116 

0P4 

315 

134 

003 

31  1 

*2 1 

1 5P 

M 

315 

1 62 

l 

*21 

.7  0 4 

0P0 

3 15 

160 

001 

315 

365 

000 

3 15 

377 

we4 

3 76 

«"  15 

322 

1 12 

(f  ?•  4 

3 23 

P66 

0*4 

123 

125 

122 

105 

000 

201 

072 

pep 

r",n 

F 56 

*24 

165 

004 

3 15 

P66 

004 

076 

200 

P62 

337 

003 

3 I 1 

023 

122 

1?4 

1 16 

155 

F 2 4 

2/6 

PP4 

7)76 

311 

315 

273 

00P 

076 

000 

3 15 

2 73 

020 

3 1 s 

?3* 

023 

315 

213 

P03 

31  1 

004 

201 

073 

000 

000 

176 

004 

241 

;•(  4 

315 

2 26 

7 9 A 

*76 

000 

062 

33  7 

P3 

311 

000 

001 

056 

000 

0P  * 

23  1 

FP4 

2 63 

P/4 

315 

H50 

u:i 

353 

257 

051 

027 

3 06 

060 

315 

024 

001 

026 

PC  5 

257 

P 5 1 

'•'O'? 

«:•/.  f 

051 

027 

051 

027 

3 P6 

060 

315 

024 

001 

025 

3 02 

301 

pip  A 

311 

PIP 

1 1 4 

1 1 1 

124 

253 

004 

332 

00,4 

021 

344 

0P4 

315 

160 

001 

315 

316 

003 

311 

341 

124 

135 

043 

043 

3 45 

315 

16P 

001 

311 

0/0 

00/ 

PC:’ 

000 

322 

77  4 

366 

0P4 

3 1 1 

005 

1 1 1 

1 16 

124 

356 

0*4 

377 

0*4 

333 

PPP 

346 

10P 

312 

3 77 

00  4 

333 

001 

346 

177 

315 

024 

P01 

311 

M 12 

114 

Figure  8.  The  object  listing  of  the  Initial  Machine  Code  Dictionary. 


THIS  PASS  15  BIST  QUALITY  PRACTICABLE 
TRuM  COPY  PURBISHBD  TO  DOC  _ 


CONVERS  STANDARD  HIGH  LEVEL  DICTIONARY 


t JCOP  332  1,  j t CONSTANT  CODE  LITERAL  , RTN  | 

t VARIABLE  CODE  LITERAL,  , RTN  ; CODE  XCHG  333  1,  RTN 
: * UPDICT  SEARCH  9 ; : JZOP  312  l,  j : JMPOP  303  1,  ; 
l JNZOP  302  1,  J CODE  ( HERE  ’ INTTY  COMPILE  376  1,  51  1, 

JNZOP  , RTN  t RZ,  310  1,  ; 

CODE  DAD  353  1,  11  1,  RTN  : + STK-BC  STKDE  DAD  XCHG  DE-STK  ; 

* COMPILE  21  ♦ CONSTANT  STATE  CODE  " HERE  DUP  ’ INTTY  COMPILE 
376  1,  12  1,  RZ,  117  1,  72  1,  STATE  , 376  1,  0 1,  JZOP  , * BC-STK 
COMPILE  * 1,  COMPILE  JMPOP  , RTN  CODE  1-  ' STKDE  COMPILE  33  1, 

* DE-STK  COMPILE  RTN  CODE  COMPLEMENT  ’ STKDE  COMPILE  172  1,  57  1, 
127  1,  173  1,  57  1,  137  1,  * DE-STK  COMPILE  RTN  * MINUS  COMPLEMENT  1+  ; 


* 0PUSH  0 POP  ; » - MINUS  + ; CODE  0«  * STKDE  COMPILE  172  lt 

346  1,  200  1,  7 1,  ' PUSH  COMPILE  ' 0PUSH  COMPILE  RTN 
t PRECEDENCE  UPDICT  SEARCH  6 - DUP  9 200  + SWAP  1 ; 
t STK-DICT  LITERAL  , ; PRECEDENCE  STK-DHCT  PRECEDENCE  ’ 
l JNCOP  322  1,  ; l IF  * ZER07  STK-DICT  COMPILE  JNCOP  HERE  0 , j 
PRECEDENCE  IF  l ELSE  JMPOP  0 , HERE  SWAP  1 HERE  1-  1-  ; 
PRECEDENCE  ELSE  l THEN  HERE  SWAP  I ; PRECEDENCE  THEN 
t = - IF  0 ELSE  1 THEN  ; t > - 0<  0 = ; : < SWAP  > ; 


: BELL  7 POP  POP  OUTTTY  J PRECEDENCE  " » DO  * STKDE  STK-DICT 

COMPILE  325  1,  * STKDE  STK-DICT  COMPILE  325  1,  HERE  ? PRECEDENCE  DO 

CODE  TEST  301  1,  321  1,  341  1,  43  1,  345  1,  325  I,  305  1,  174  1, 

57  1,  147  1,  175  1,  57  1,  157  1,  43  1,  31  1,  RTN 
* LOOP  * TEST  STK-DICT  COMPILE  JCOP  ,321  1,  321  1,  ; PRECEDENCE  LOB 
CODE  +TEST  341  1,  301  1,  321  1 , 33  1 , 325  1,  305  1,  345  1, 

* STK-BC  COMPILE  353  1,  11  1,  301  1,  321  1,  361  1,  345  1,  325  1, 

305  I,  RTN  * +LOOP  ’ +TEST  STK-DICT  COMPILE  * TEST  STK-DICT  COMPILE 

JCOP  ,321  1,  321  1,  x PRECEDENCE  +LOOP  CODE  DA DSP  71  I.  RTN 
J IC  0 STKDE  XCHG  DADSP  XCHG  DE-STK  | t I IC  10  + 9 } 

: J IC  16  + 9 | l K IC  24  + 9 ; CODE  AND  * STKDE  COMPILE 

STK-BC  COMPILE  172  1,  240  1,  127  1,  173  1,  241  1,  137  1, 

’ DE-STK  COMPILE  RTN  ’ UPDICT  14  - CONSTANT  DP 


Figure  9a. 


I J 


l , CODE  CODE  HERE  1-  1-  9 + HERE  1-  l-  I I * REMEMBER  HERE  1-  DUP 
CODE  41  1,  , 42  I,  DP  , 52  I,  5 ♦ , « I,  DP  2 + , RTB  | 

CODE  2*  ’ STKDE  COMPILE  353  1 , 5 1 1 , 353  1 , ' DE-STK  COMPILE  RTN 
CODE  2/  * STKDE  COMPILE  257  1,  172  1,  37  1 , 127  1,  173  1 , 37  1, 

137  1,  * DE-STK  COMPILE  RTN  CODE  SWITCH  ’ STKDE  COMPILE  353  1, 

125  1,  134  1,  ’ DE-STK  COMPILE  RTN  CODE  SP  52  1 , * PUSH  14  + 

, 353  1,  * DE-STK  COMPILE  RTN  * UNDER  2*  SP  + 9 SWITCH  ; 

: MAX  DUP  3 UNDER  > IF  SWAP  THEN  DROP  ; 
t MIN  DUP  3 UNDER  < IF  SWAP  THEN  DROP  | CODE  11  * STKDE  COMPILE 
' STK-BC  COMPILE  353  1 f 161  I,  RTN  I 1WORD  DUP  3 UNDER  9 SWAP 
II  1+  SWAP  1+  SWAP  ; CODE  WORDS  ' STKDE  COMPILE  325  I , HERE  * 1WORD 
COMPILE  321  1,  33  1,  325  1,  ' DE-STK  COMPILE  ’ ZERO?  COMPILE 
JCOP  ,321  1,  ’ DROP  COMPILE  * DROP  COMPILE  RTN 


CODE  CVRT  * STK-BC  COMPILE  ’ STKDE  COMPILE  353  1,  76  1,  57  1,  HERE 
74  1,  11  1,  JCOP  , * OUTTTY  COMPILE  353  1,  * DE-STK  COMPILE  RTN 
: .10  23420  MINUS  CVRT  23420  4-  1750  MINUS  CVRT  1750  + 144  MINUS 
CVRT  144  + 12  MINUS  CVRT  12  + 60  + POP  POP  OUTTTY  j 

I 10CVRT  0 HERE  9 377  AND  1 DO  DUP  2*  2*  + 2*  HERE  I + 9 17  AND  + 
LOOP  ; t DECIMAL  72  * NUMBER  STK-DICT  31+11  * 10CVRT  STK-DICT 
’ NUMBER  STK-DICT  43+1  ’ .10  STK-DICT  ’ . STK-DICT  2 - I ; 


s OCTAL  70  ’ NUMBER  STK-DICT  31+11  * OCTCVRT  STK-DICT  ’ NUMBER 
STK-DICT  43+1  ’ ; STK-DICT  20  + DUP  2 + SWAP  I ; 

CODE  DATAOUT  323  1,  0 1,  RTN  : PORTOUT?  * DATAOUT  STK-DICT  1+  11  t 
t OUTDEVICE  PORTOUT?  POP  POP  DATAOUT  | 

CODE  INDATA  333  1 , 0 1 , RTN  : PORTIN?  ’ INDATA  STK-DICT  1+  1 1 ; 
t INDEVICE  PORTIN?  INDATA  PUSH  ; 0 VARIABLE  SPECIAL 

t BEGIN-HERE  HERE  SPECIAL  I ; : BEGIN  303  1,  SPECIAL  9 , ; 

: END  311  1,  { PRECEDENCE  END  PRECEDENCE  BEGIN  PRECEDENCE  BEGIN-HERE 


Figure  9b.  The  Standard  High-Level  Dictionary  will  be  compiled 
by  the  Initial  Machine  Code  Dictionary. 


CONFIGURING  FOR  ANOTHER  MEMORY  SIZE 


1.  Load  the  Initial  Machine  Code  Dictionary  as  described  in  the  con- 
clusion of  Article  III.  This  can  be  loaded  in  any  machine  having 

at  least  2K  of  memory.  (The  Initial  Machine  Code  Dictionary  resides 
in  approximately  1.2K  bytes.) 

2.  If  less  than  12K  of  memory  is  available,  the  value  used  to  detect 
stack  underflow  and  the  initial  stack  pointer  must  be  changed.  If 
the  user  wishes  to  make  use  of  more  than  12K  of  continuous  memory, 
these  values  must  also  be  changed. 

3.  The  stack  underflow  detection  value  (POP?)  is  located  at  address 
333  octal.  The  value  at  this  address  should  be  changed  to  the  8 
most  significant  bits  of  the  memory  bound  plus  two.  For  instance, 
the  value  of  POP?  for  12K  of  memory  is  <J>61g.  To  configure  for  8K, 
POP?  should  be  changed  to  <|>41g. 

4.  The  stack  pointer  (SP)  is  located  at  address  3<f>7g  and  31<J>g.  (Note 
that  the  SP  is  a 16  bit  value  with  the  least  significant  bits  first.) 
This  should  be  changed  to  the  upper  bound  of  continuous  memory  plus 
one.  For  instance,  to  change  the  present  value  of  the  stack  pointer 
from  12K  (<Jx}><f>g  and  <f>6<j>g)  to  8K,  the  new  stack  pointer  value  should 

be  4><H>g  at  address  3<j>7g  and  <p4<p  at  address  31<j>g. 


TABLE  I 


TERMINAL  I/O  AS  PRESENTLY  SUPPLIED 
IN  THE  INITIAL  MACHINE  CODE  DICTIONARY 

1 1 NTTY * Routine  (starts  at  2377g) 

HERE  IN  STATUS  (333g);  Input  current  contents  of  flag 
STATUS  PORT  (<f><M>g)  port  (port  <J>) 

ANI  l#  ( 346g) ; Mask  out  all  bits  except  bit  6 
(l4>4>g)  which  is  the  data  available  flag 
JZ  HERE  (312g);  Loop  to  'HERE'  if  flag  not  set. 
(377g) 

(<)><l>48) 

IN  DATA  (333g);  Input  data  from  port  one. 

DATA  PORT  (<H>18) 

ANI  177g  (346g) ; Strip  parity  bit. 

0778) 

CALL  OUTTTY  ( 31 5g) ; Echo  Character. 

(<J>24g) 

(Mlg) 

RET  (311 g) 

'OUTTTY'  Routine  (starts  at  424g) 

HERE  1 PUSH  PSW  (365g);  Push  contents  of  'A'  reg.  on  stack. 

IN  STATUS  (333g);  Input  current  contents  of  flag  port 

(<PH>8)  (port  <f>) 

(346g);  Mask  out  all  bits  except  bit  7 which 
(2<p<pg)  is  the  transmitter  buffer  port  flag. 
(312g);  Loop  to  'HERE  V until  flag  set. 
(<D24g) 

(<W>lg) 


T* 


P 

POP  PSW  (361g);  Get  value  back  into  'A'  register. 

OUT  DATA  (323g);  Output  character  to  port  one 

(4>4>1 3) 

RET  (31 lg) 

i.  NOTE:  Input  routine,  ' INTTY' , can  extend  several  bytes  longer  without 

any  modification  to  the  rest  of  the  system. 

TABLE  II 
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number  of  routines  are  needed  to  successfully  emulate  the  Initial  Machine 
Code  dictionary  (IMCD)  on  other  CPU's,  It  should  be  emphasized  that  each 
particular  routine  is  logically  rather  simple.  It  is  only  when  taken  as 
a whole  that  the  CONVERS  system  becomes  so  powerful. 

An  object  listing  of  the  Initial  Machine  Code  dictionary  (IMCD)  is 
given  in  Figure  8.  An  octal  loader  should  be  used  to  load  memory  starting 
at  octal  100.  The  initial  Machine  Code  dictionary's  starting  address  is 
1752  octal.  Once  it  is  loaded  and  running,  it  will  itself  compile  the  rest 
of  Standard  CONVERS;  a source  listing  is  given  as  Figure  9.  The  version 
given  here  is  for  12k  of  memory.  To  reconfigure  for  another  memory  size, 
the  procedure  outlined  In  Table  I should  be  followed. 

Table  II  lists  the  contents  and  memory  location  of  the  terminal  I/O 
routines.  These  routines  may  also  need  to  be  reconfigured  (or  rewritten) 
depending  on  the  user's  particular  terminal  or  Interface. 

This  work  was  partially  supported  by  the  Office  of  Naval  Research 
and  by  an  Alfred  P.  Sloan  Foundation  Research  Fellowship  to  M.B.D. 
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CONVERS  DOS  SYSTEM 


For  use  in  conjunction  with  the  North  Star  Disk 
System  and  CONVE.  3 Initial  Machine  Code  Dictionary 
and  the  CONVERS  Standard  High  Level  Dictionary. 


INTRODUCTION 


The  CONVERS  Disk  Operating  System  is  designed  for  use  with  the 
North  Star®  disk  system.  It  is  possible  to  write  a DOS  system  for  any 
disk,  in  this  case,  the  following  routines  must  be  rewritten: 

DISK  - I NIT 
MOTOR  - START 
TRACK  - FIND 
XREAD 
XWRITE 

TRACK  - SECTOR 

These  routines  will  be  described  later,  giving  special  discussion  as  to 
the  requirements  that  each  routine  must  meet  if  these  routines  are  to  be 
rewritten  for  another  disk  system. 

The  CONVERS-DOS  (C-DOS)  system  has  been  written  assuming  a minimal 
disk  system,  i.e.  a single  drive.  Due  to  the  nature  of  C-DOS,  other  disk 
drives  should  not  be  needed  except  under  the  most  taxing  of  situations. 

GENERAL 


The  C-DOS  system  is  designed  as  an  interface  between  the  floppy  disk 
and  the  CONVERS  general  software  system.  Interaction  with  the  disk  is 
generally  of  two  levels.  The  first  level  involves  the  transfer  of  specified 
memory  contents  to  or  from  a block  on  the  disk.  A 'block'  has  been  defined 
as  256io  bytes  (neglecting  the  preamble,  sync  character  and  CRC  character). 
Note  that  tills  block  size  is  identical  to  the  amount  of  data  which  one  sec- 
tor (at  a particular  track)  of  the  North  Star  disk  can  contain.  Thus  to 
interact  with  the  disk  at  this  basic  level,  the  memory  location  where  data 
transfer  is  to  take  place  must  be  the  second  number  under  the  top  of  the 
stack,  the  block  number  must  be  the  top  number.  The  respective  disk  'READ' 
or  'WRITE'  routine  is  then  executed.  As  an  example,  to  write  (out  to  the 
disk)  the  contents  of  memory  starting  at  octal  1 0,000  to  block  100  octal, 
the  following  character  string  would  be  expected: 

10000  100  WRITE 

To  'read'  from  the  disk,  the  analogous  'READ'  routine  is  used: 

11000  101  READ 

The  above  character  string,  if  expected,  would  deposit  the  contents  of 
the  disk  block  101  to  memory  starting  at  11000.  Note  that  the  direction 
of  data  transfer  is  referenced  from  the  disk,  I.e,  data  is  read  from  or 
written  onto  the  disk. 
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The  'WRITE'  and  'READ'  routines  are  used  for  binary  data  transfer  to 
or  from  the  disk.  Using  these  routines,  binary  data  or  programs  may  be 
swapped  back  and  forth.  However,  the  most  general  use  of  the  disk  is  for 
the  storage  of  source  programs.  This  level  of  disk  access  will  be  discussed 
in  the  next  section. 

SOURCE  PROGRAM-STORAGE  AND  LOADING 

Source  programs  are  written  to  or  loaded  from  the  disk  through  two 
block  buffers  set  aside  specifically  to  handle  disk  source  code  transfers. 

The  beginning  location  of  these  blocks  is  contained  as  the  variable  '/*BUFF'. 
To  move  the  location  of  the  buffers,  this  variable  must  be  reinitialized  to 
contain  the  new  buffer  address.  To  set  the  buffers  at  60000  octal,  for 
example,  would  require  the  following  character  string  to  be  executed: 

60000  /*BUFF  ! 

Note  that  this  is  the  standard  way  of  reinitializing  any  variable.  Two 
restrictions  are  placed  on  the  location  of  the  buffers;  however,  the  buffers 
may  not  reside  within  the  bounds  of  the  CONVERS  system  and  512  continuous 
bytes  must  be  allocated  for  buffer  usage. 

To  place  source  code  into  the  buffer,  the  'PUT-BUFF'  routine  is  used. 

The  up  arrow  (t)  ends  the  filling  of  the  buffer  and  returns  control  back 
to  the  CONVERS  executive  routine.  As  an  example,  suppose  the  user  wishes 
to  store  the  following  source  code  into  the  buffer.  The  following  would 
be  entered  on  the  terminal: 

PUT-BUFF  : SOUND  10  1 DO  BELL  LOOP  ; ;S  f 

The  definition  of  'SOUND'  is  the  required  source  program  in  this  case. 

To  display  the  contents  of  the  buffer,  the  ' BUFF-DISP ' routine  is  executed. 

To  actually  store  the  contents  of  the  buffer  onto  the  disk,  the  'WR-VERIFY' 
routine  is  executed.  The  block  number  to  which  the  data  is  to  be  transferred 
must  be  on  top  of  the  stack.  For  instance,  to  store  the  buffer  contents  at 
block  300,  the  following  routine  is  executed: 

300  WR-VERIFY 

The  'WR-VERIFY'  routine  writes  the  buffer  out  to  disk  and  reads  it  back 
to  verify  data  transmission.  If  the  user  (or  some  program)  wishes  to  neg- 
lect the  verify  step,  the  ' WR- BUFF ' routine  may  instead  be  executed. 

All  source  code  blocks  stored  on  disk  must  end  with  the  ' ;S ' defini- 
tion being  the  last  executable  definition  to  appear  in  the  block.  Since 
the  ' ;S'  routine  needs  to  be  recognized,  a space  must  follow  the  ' ;S' 
entry  followed  by  the  up  arrow. 

Source  code  stored  on  disk  would  appear  exactly  as  if  entered  off  the 
terminal,  except,  of  course,  the  Incorporation  of  the  jS  and  up  arrow 
character  strings.  When  using  the  'PUT-BUFF'  entry  to  initially  enter 
source  code  to  the  buffer,  'PUT-BUFF'  monitors  the  number  of  characters 
entered  into  the  buffer.  A non- fatal  diagnostic  message,  ' ?7* , will  be 
output  to  the  terminal  when  the  buffer  is  about  to  be  over-run.  The  user 
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must  end  the  buffer  (with  the  ;S  space  and  up  arrow)  in  the  next  11 
characters  entered. 

LOADING  SOURCE  CODE  BLOCKS  FROM  DISK 

To  load  a source  code  block,  the  'LOAD'  entry  is  executed.  The 
required  block  number  must  first  be  on  the  stack.  To  load  block  300, 
for  example,  the  following  character  string  is  executed: 

300  LOAD 

The  source  code  is  initially  loaded  into  the  block  buffer  whenever  the 
'LOAD'  command  is  executed.  The  character  input  mode  is  changed  from  the 
terminal  to  the  block  buffer  and  the  source  code  is  executed  or  compiled 
as  if  it  is  coming  from  the  terminal.  The  ' ;S*  entry  ends  the  execution 
or  compilation  of  the  source  code.  If  the  ;S  entry  is  not  encountered  in 
the  buffer,  a fatal  error  is  assumed  and  an  error  message  ' ?8*  is  output 
to  the  terminal.  Control  is  passed  unconditionally  to  the  executive 
after  putting  the  system  back  into  the  terminal  input  mode. 

LOADING  MULTIPLE  BLOCKS 


Application  dictionaries  will  reside  in  more  than  one  block.  For 
instance,  the  floating  point  package  on  our  system  in  stored  in  about  45, 0 
blocks  on  the  disk.  Obviously,  it  would  be  tedious  to  have  to  load  u 
each  block  individually.  To  eliminate  this  problem,  a mechanism  has  been 
provided  to  allow  one  source  block  to  load  a number  of  other  blocks.  For 
instance,  suppose  source  code  blocks  to  control  some  experiment  have  been 
stored  in  blocks  100  to  105  inclusive.  The  user  might  store  the  following 
source  code  in  block  106  , for  instance: 

100  LOAD  101  LOAD  102  LOAD  103  LOAD  104  LOAD  105  LOAD  ;S  t 

To  load  the  whole  application  dictionary,  it  Js  now  only  necessary  to  load 
block  106.  This  block  supervises  the  loading  of  the  rest  of  the  applica- 
tion dictionary. 

The  loading  block  (block  106  in  the  above  example)  must  explicitly 
reference  each  block  that  is  to  be  loaded.  This  means  that  a DO-LbOP 
may  not  be  used  to  load  a string  of  blocks.  However,  a DO-LOOP  may  be 

used  to  push  on  the  stack  a string  of  block  numbers  (in  the  reverse  order 

from  which  they  are  to  be  loaded)  and  then  a 'LOAD'  command  for  each  block 
number  should  follow.  For  example,  block  106,  in  the  above  example,  might 
contain  the  following: 

: EXPLOAD  5 0 DO  100  5 + I - LOOP  ; EXPLOAD  LOAD  LOAD  LOAD 

LOAD  LOAD  LOAD  ;S  + 

The  above  loading  sequence  assumes  that  block  100  must  be  the  first  block 
to  be  loaded. 

All  users  are  strongly  urged  to  read  the  descriptions  of  each  routine 
supported  by  the  C-DOS  dictionary  in  the  following  section.  Special  notice 
should  be  made  concerning  the  'DISK- 1 NIT'  routine. 
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THE  CONVERS-DOS  (C-DOS)  DICTIONARY 


Each  of  the  routines  supported  by  the  C-DOS  dictionary  will  be  des- 
cribed in  turn.  Routine  names  beginning  with  an  asterisk  (*)  are  routines 
that  would  have  to  be  rewritten  if  another  disk  system  other  than  the 
North  Star®  Is  to  be  used.  Special  notice  should  be  taken  of  the  comments 
concerning  the  'DISK-INIT'  routine  if  the  user  is  adding  the  C-DOS  system 
to  the  Standard  CONVERS  Dictionary. 


♦DISK-INIT 


The  'DISK-INIT'  routine  initializes  the  disk  to  track  zero  and  de- 
posits the  track  number  (zero)  in  address  1515  octal.  This  routine  is 
called  whenever  the  CONVERS  system  is  booted  up  from  the  disk.  To  do  this, 
the  following  simple  routine  has  been  added  to  the  start  of  the  Initial 
Machine  Code  Dictionary.  Note  that  this  routine  may  be  destroyed  once  the 
disk  has  been  initialized.  (This  may  happen  when  vectored  interrupt  rou- 
tines are  employed  since  the  'jump  to  DISK-INIT'  routine  resides  in  vec- 
tored interrupt  memory  space.) 


Memory  Address 

OPCODE  OPERAND 

COMMENTS 

00 

VO 

VO 

LXI  SP 

Initializes 

CO 

vo 

IMCD  ADDRESS 

the  stack  pointer 

7<>8 

OF  STACK  POINTER 

71 8 

LXI  HL 

00 

CVJ 

r^. 

AD DR  OF  EXECUTIVE 

00 

CO 

rs* 

ROUTINE 

00 

PUSH  H 

Pushes  address 

758 

JMP 

of  'EXECUTIVE' 

00 

VO 

r>* 

ADDR  OF  DISK- 

on  return  stack 

00 

INIT  ROUTINE 

♦MOTOR-START 

This  routine  starts  the  motors  if  they  have  not  been  started.  If  the 
motors  are  not  on  after  start-up,  a specified  delay  (one  second)  is  executed 
to  insure  motors  have  come  to  speed.  The  read-write  head  is  also  engaged 
and  a wait  period  (40  ms)  is  executed  to  ensure  that  the  heads  have  engaged. 

♦TRACK- FIND 

This  routine  calls  the  'STK-BC'  routine  and  steps  to  the  track 
position  found  in  the  'C'  register.  It  also  stores  the  track  value  in  the 
track  value  storage  location  (1515J. 
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*TRACK-SECTOR 

This  routine  decodes  the  block  number  found  on  the  stack  such  that 
the  * C*  register  holds  the  track  number  and  the  '8'  register  holds  the 
sector  number.  The  decoded  value  is  pushed  back  on  the  stack. 

*XREAD 

This  routine  'reads'  a sector  off  the  disk  and  deposits  the  sector 
contents  to  the  memory  location  found  on  the  stack.  The  required  sector 
value  should  be  in  the  ' B ' register.  It  is  assumed  that  the  heads  are  at 
the  required  track.  'XREAD'  also  pushes  on  the  stack  the  'status'  value 
of  the  read  operation.  A zero  indicates  a successful  'read',  one  indi- 
cates a format  error  (sync  character  not  found  or  drive  not  loaded)  and 
two  indicates  a CRC  error.  The  value  that  is  pushed  on  the  stack  is  an 
8 bit  value. 

CHANGE-MODE 

This  routine  changes  the  input  mode  back  to  the  terminal  input  mode. 

JMPEXEC 

' JMPEXEC'  unconditionally  returns  to  the  'EXECUTIVE'  after  zeroinq 
'STATE'. 

/*BUFF 

This  is  a variable  which  holds  the  current  buffer  address. 

TEMPCOUNT 

'TEMPCOUNT'  is  used  as  a flag  to  determine  if  source  code  coming 
from  disk  should  be  loaded  in  the  first  (TEMPCOUNT  = 0)  or  the  second 
(TEMPCOUNT  > 0)  block  buffer.  See  'LOAD'. 

READ 

'READ;  calls  'TRACK- SECTOR',  ' MOTOR- START ' , 'TRACK-FIND'  and  'XREAD' 
to  initialize  the  reading  operation.  If  a read  error  has  occurred  after 
'XREAD'  has  completed,  'TEMPCOUNT'  is  zeroed  and  an  error  message  is  out- 
put. 'JMPEXEC'  is  called  to  unconditionally  return  to  the  'EXECUTIVE', 
aborting  the  'read'  operation.  The  memory  address  and  block  number  must 
be  on  the  stack  before  'READ'  is  executed. 


BLOCK 

'BLOCK'  'reads'  the  block  whose  number  is  on  the  stack  into  the 
first  disk  block  buffer. 

B-DISP 

This  routine  outputs  a string  of  ASCII  characters  from  memory 

E 


j 


d 
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(indirectly  addressed  by  the  H & L registers)  to  the  terminal.  The 
routine  ends  upon  detection  of  the  up-arrow  character  (136g). 

BUFF-DISP 

This  routine  displays  the  contents  of  the  block  buffer  to  the 
terminal . 

P-BUFF 

This  routine  deposits  ASCII  characters  from  the  terminal  to  memory 
starting  at  the  address  in  the  H & L registers.  It  terminates  upon 
detection  of  the  up-arrow  (t)  character.  It  outputs  a diagnostic  message 
when  the  user  is  about  to  over-run  the  buffer. 

PUT-BUFF 

'PUT-BUFF'  calls  'P-BUFF'  to  allow  the  user  to  input  ASCII  charac- 
ters to  the  block  buffer. 

SHOW 

This  routine  displays  the  contents  of  all  blocks  inclusive  between 
two  block  numbers  on  the  stack.  For  instance,  to  display  the  blocks 
between  1 00  and  105,  the  user  would  execute  the  following: 

105  100  SHOW 

WRITE 

This  routine  calls  'TRACK-SECTOR',  ' MOTOR- START ' , 'TRACK-FIND'  and 
' XWRITE ' to  initialize  the  disk  write  operation.  The  memory  address 
and  disk  block  number  must  first  be  on  the  stack.  If  the  disk  Is 
write-protected,  an  error  message  (?6)  is  output  to  the  terminal. 

WRITE-VERIFY 

'WRITE- VERIFY'  is  identical  to  'WRITE',  except  the  data  Is  read 
back  to  verify  data  transmission. 

DISP-BLOCK 

This  routine  displays  the  contents  of  the  block  (whose  number  Is 
on  the  stack)  on  the  terminal. 

COUNT 


'COUNT'  Is  a variable  that  holds  the  current  buffer  address  during 
'LOAD'  operations. 

10ERROR 

This  routine,  when  executed  outputs  a ' ?8'  to  the  terminal,  zeroes 
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' TEMPCOUNT'  and  unconditionally  jumps  to  the  'EXECUTIVE'.  This  routine 
is  used  In  loading  operations  If  a ' ;S'  Is  not  encountered  when  loading 
a block  off  disk. 

BUFFIN 

'BUFFIN'  returns  with  the  ASCII  value  addressed  by  'COUNT'  In  the 
'A'  register.  However,  If  the  LSB's  of  the  value  stored  at  'COUNT' 
equal  377g,  ' 10ERROR'  Is  called. 

INBUFF 


'INBUFF'  pushes  the  contents  of  the  H & L and  D & E registers  on 
the  return  stack  and  calls  'BUFFIN'.  Upon  the  return  of  'BUFFIN',  the 
registers  are  restored. 


MODE-CHG 


This  routine  changes  the  input  mode  from  the  terminal  to  the  block 
buffer  Input  mode.  It  does  this  by  changing  the  call  address  of  'UPDICT' 
from  the  'INTTY*  routine  to  the  'INBUFF'  routine.  (The  routine 
'CHANGE-MODE'  returns  this  address  back  to  'INTTY'.) 

LOAD 


This  routine  'loads'  the  block  (block  number  must  be  on  top  of  stack) 
and  compiles  and/or  executes  the  source  code  found  In  the  block. 


ii 

This  routine  ends  loading  of  the  current  block. 

WR-BUFF 

This  routine  writes  out  to  the  disk  from  the  block  buffer.  The 
block  number  must  be  on  the  stack. 

WR- VERIFY 

This  routine  Is  the  same  as  'WR-BUFF',  but  data  transmission  is 
verified  by  reading  the  block  back  In. 


CODE  DISK- 1 NIT  16  1 , 60  1 , 315  1,  162  1 , 351  1,  76  1,  0 1,  62  1 , 

1515  , RTN  CODE  MOTOR-START  72  1,  220  1,  353  1,  346  1,  20  1,  300  1, 
26  1,  62  1,  315  1,  320  1,  351  1,  72  1,  201  1,  353  1,  26  1,  15  I, 

315  1,  320  1,  351  1,  RTN 

CODE  TRACK-FIND  ’ STK-BC  COMPILE  171  I,  41  I,  1515  , 3 15  1,  144  l, 

351  1,  RTN  CODE  TRACK-SECTOR  ' STKDE  COMPILE  353  1,  21  l,  12  MINUS 
16  1,  377  1,  HERE  14  I,  31  1,  JCOP  , 21  1,  12  , 31  1,  105  1, 

• BC-STK  COMPILE  RTN 

CODE  XREAD  * STKDE  COMPILE  353  1,  HERE  315  1,  316  1,  351  1,  72  1,  60  l 
353  1,  346  1,  17  1,  270  1,  302  1,  , 21  1,  HERE  12  + , 325  1,  21  lf 
400  , 325  lt  303  1,  114  1,  351  1,  * PUSH  COMPILE  RTN 
t CHANGE-MODE  ’ INTTY  STK-DICT  ’ UPDICT  STK-DICT  21  4-  ! X 


CODE  JMPEXEC  303  1,  237  # RTN 

30000  VARIABLE  /* BUFF  0 VARIABLE  TEMPCOUNT 

: READ  TRACK-SECTOR  MOTOR-START  TRACK-FIND  xREAD  0PUSH  DUP  0 = IF 
DROP  END  THEN  0 TEMPCOUNT  1 CHANGE-MODE  77  POP  POP  OUTTTY  63  4-  POP 
POP  OUTTTY  JMPEXEC  j 

j BLOCK  /♦BUFF  9 SWAP  READ  ; 

CODE  B-DISP  HERE  176  1,  * OUTTTY  COMPILE  376  1,  136  1,  310  1,  43  1, 

303  1 , , RTN  t BUFF-DISP  /*8UFF  0 STKDE  XCHG  B-DISP  | 

CODE  7ERR  76  1,  77  1,  * OUTTTY  COMPILE  76  1,  67  1,  * OUTTTY  COMPILE 

RTN  CODE  P-BUFF  HERE  * INTTY  COMPILE  376  1,  136  l,  167  1,  43  1,  310 
1 , 76  1 , 360  1,  275  1,  302  1,  HERE  5 + , * 7ERR  COMPILE  303  1 , , RTN 
I PUT-BUFF  /♦BUFF  9 STKDE  XCHG  P-BUFF  j 

: SHOW  DO  CRLF  I DUP  . CRLF  BLOCK  BUFF-DISP  CRLF  LOOP  \ 

CODE  XVRITE  * STKDE  COMPILE  353  1 , 72  1,  20  1,  353  1,  346  1,  2 1, 

300  1,  HERE  315  l,  316  1,  351  1,  72  1,  60  1,  353  1,  346  1,  17  1, 

270  1,  302  1,  ,61,0  I,  16  1,  17  1,  21  1,  0 1,  352  1,  72  1, 

4 1,  353  1,  HERE  72  1,  20  1,  353  1,  346  1,  10  lf  312  1,  , HERE 

32  1,  15  1,  302  1,  ,36  1,  373  1,  32  1,  HERE  176  1,  137  1,  32  1, 

176  1,  43  1,  250  1,  7 1,  107  1,  15  I,  302  1,  , 130  1,  32  1,  257  1, 

RTN  t WRITE  TRACK-SECTOR  MOTOR-START  TRACK-FIND  XWRITE  PUSH  0PUSH 
0 z IF  END  THEN  77  POP  POP  OUTTTY  66  POP  POP  OUTTTY  | 

: WRITE-VERIFY  2 UNDER  2 UNDER  WRITE  READ  t 

: DISP-BLOCK  BLOCK  CRLF  BUFF-DISP  ; 

0 VARIABLE  COUNT  i 1 0ERROR  77  POP  POP  OUTTTY  70  POP  POP  OUTTTY 
CHANGE-MODE  0 TEMPCOUNT  1 JMPEXEC  t 

t BUFFIN  COUNT  » DUP  377  AND  377  = IF  DROP  10ERROR  THEN  DUP  14- 
COUNT  ! 1@  POP  ; 

CODE  INBUFF  345  I,  325  1 , * BUFFIN  COMPILE  321  1,  341  1,  RTN 
: MODE-CHG  * INBUFF  STK-DICT  * UPDICT  STK-DICT  21  4-  I | 

: LOAD  TEMPCOUNT  9 0 z IF  BLXK  1 TEMPCOUNT  ! /♦  BU FF  9 COUNT  I 
MODE-CHG  ELSE  COUNT  9 TEMPCOUNT  ! /*  BUFF  9 400  4-  DUP  COUNT  I 
SWAP  READ  THEN  | 

1 t S TEMPCOUNT  9 1 * IF  CHANGE-MODE  0 TEMPCOUNT  1 ELSE  TEMPCOUNT 
9 COUNT  ! 1 TEMPCOUNT  I THEN  t 

t WR-BUFF  /♦  BUFF  9 SWAP  WRITE  | t WR-VERIFY  ABUFF  9 SWAP  2 UNDER 
2 UNDER  WRITE  READ  | * 


CONVERS  FLOATING  POINT  PACKAGE 

For  Use  with  CONVERS  Standard  High  Level 
Dictionary  and  Initial  Machine  Code  Dictionary 


Note  !!! 


1.  The  floating  point  source  code  shown  below  was  taken  off  the  disk 

in  a block  format.  Note  that  the  end  of  each  'block'  is  followed  by 
the  character  string  1 ;S  + '.  If  the  floating  point  source  code  is 
to  be  'typed'  into  the  computer  (with  CONVERS  running)  or  is  to  be 
entered  on  mass  storage,  the  above  characters  are  ignored. 

2.  The  source  code  shown  references  a routine  called  'JMPEXEC'  that 

is  not  contained  in  either  the  initial  machine  code  dictionary  or  the 
standard  high  level  dictionary.  (It  is,  in  fact,  defined  in  our  CONVERS 
disk  system.)  This  was  an  oversight  that  was  not  caught  when  the 
floating  point  package  was  written  or  documented.  Therefore,  the  user 
must  first  define  this  routine  (as  follows)  before  the  floating  point 
package  is  compiled: 

CODE  JMPEXEC  303  1,  237  , RTN 

Otherwise,  the  floating  point  package  is  totally  compatible  with  standard 
8080  CONVERS. 


INTRODUCTION 


The  CONVERS  floating  point  package  (C-FPP)  is  a group  of  software 
routines  designed  to  implement  many  of  the  standard  CONVERS  operators 
in  floating  point  form.  It  also  allows  floating  point  numbers  on  the 
stack  to  be  stored  as  constants  or  variables  in  an  analogous  fashion 
to  the  treatment  of  integer  numbers.  The  floating  point  package  allows 
integer  nunbers  to  be  converted  to  floating  point  numbers  and  vice  versa. 
Thus,  software  may  be  written  (defined)  to  control  an  interactive  experi- 
ment such  that  integer  values  are  used  for  I/O  control,  but  data  manipula- 
tion itself  is  handled  using  floating  point  numbers.  The  data  resulting 
from  this  data  manipulation  is  converted  back  to  integer  values  and 
output  to  the  corresponding  output  devices. 

Documentation  of  the  floating  point  package  will  be  of  two  levels. 

The  first  level  will  be  a functional  description  of  the  various  routines 
the  user  would  use  to  implement  the  floating  point  software.  The  second 
level  involves  a description  of  how  the  floating  point  routines  work  such 
that  users  of  other  CPU's  can  write  versions  for  their  particular  machine. 

GENERAL  CONSIDERATIONS 


The  CONVERS  floating  point  package  (C-FPP)  is  a group  of  routines 
to  implement  floating  point  operations  on  six-digit  floating  point  numbers. 
The  six  digits  are  stored  as  BCD  numbers,  two  BCD  numbers  per  byte.  The 
most  significant  digit  always  resides  in  the  six  left-most  four  bits  of 
each  byte.  A fourth  byte  is  used  to  hold  the  exponent  and  the  sign  of 
the  mantissa.  The  mantissa  sign  bit  is  the  most  significant 


bit  with  the  bit  'set'  indicating  a negative  mantissa.  The  exponent  is 
stored  in  the  seven  remaining  bits  in  an  offset  form.  This  means  that 
an  exponent  of  zero  would  be  stored  as  100  octal,  an  exponent  of  minus 
one  is  stored  as  77  octal,  plus  one  as  101  octal  and  so  on.  The  range 
of  exponents  is  +63  decimal  to  -64  decimal. 

Floating  point  numbers  are  input  or  output  to  the  terminal  under 
explicit  command  from  the  user,  i.e.  a floating  point  ‘mode*  cannot 
be  chosen.  To  input  the  floating  point  mantissa  the  following  routines 
may  be  used: 

F Input  a positive  mantissa 

F+  Same  as  above 

F-  Input  a negative  mantissa 

As  an  example,  to  input  the  number  -12.1246  the  user  would  type 
the  following: 

F-  12.1246 

Note  that  the  number  can  be  entered  in  any  fashion,  with  the  decimal 
point  appearing  anywhere  in  the  number.  (A  decimal  point  does  not  have 
to  appear.) 

The  exponent  is  entered  by  executing  the  following  entries  followed 
by  the  exponent  value: 

E Input  a positive  exponent 

E+  Same  as  above 

E-  Input  a negative  exponent 

To  enter  the  1.342  with  an  exponent  value  of  negative  36,  the  following 
would  be  typed  on  the  terminal  by  the  user: 

F 1.342  E-  36 

Since  the  ' F ' and  ' E- ' entries  are  definitions,  they  must  be  followed 
by  a space.  Likewise,  a space  is  a delimiter  to  detect  the  end  of  the 
number  character  string,  thus  a space  must  also  follow  after  the  mantissa 
and  the  exponent  value  is  entered.  The  floating  point  number  once  entered 
is  pushed  on  the  stack  with  the  following  BCD  format: 

Least  significant  2 digits 

Intermediate  significance  2 digits 

Most  significant  2 digits 

Top  of  stack  -+  Exponent  and  mantissa  sign 

To  'pop'  the  floating  point  number  off  the  stack  and  have  it  displayed 
on  the  terminal,  the  ' F*'  entry  is  executed.  The  number  is  output  according 
to  the  following  format: 

±.  Mantissa  E±  Exponent 

Note  that  the  number  is  normalized,  i.e.  the  mantissa  will  have  a value 
between  zero  and  one. 


V 


ARITHMETIC  OPERATORS 


Floating  point  arithmetic  is  executed  between  pairs  of  numbers  on 
the  stack  using  the  following  routines: 

FADD  Adds  two  floating  point  numbers 
FSUB  Subtracts  two  floating  point  numbers 
FMUL  Multiplies  two  floating  point  numbers 
FDIV  Divides  two  floating  point  numbers 

Overflow  or  underflow,  when  detected,  causes  an  error  message  (?9)  to 
be  output  to  the  terminal.  Control  is  passed  unconditionally  to  the 
executive  when  such  an  error  occurs.  The  two  floating  point  numbers 
are  left  on  the  stack,  however,  such  that  the  user  can  examine  which 
pair  of  numbers  caused  the  error. 

VARIABLES  AND  CONSTANTS 


Floating  point  variables  and  constants  are  handled  in  a way  similar 
to  integer  manipulations.  To  define  a constant  for  example,  the  'FCONSTANT' 
routine  is  used.  It  executes  exactly  like  the  'CONSTANT'  entry,  i.e.  the 
floating  value  that  will  be  named  must  be  on  the  stack.  After  the  'FCON- 
STANT' entry,  the  new  name  of  the  constant  must  follow  ' FZERO ' . The  routine 
is  defined  in  C-FPP  as  follows: 

F 0 FCONSTANT  FZERO 

Floating  point  variables  are  similarly  defined  in  an  analogous  fashion 
to  integer  variables.  The  floating  point  number  representing  the  initialized 
value  must  first  be  on  the  stack.  The  entry  'FVARIABLE'  is  entered  fol- 
lowed by  the  user  specified  variable  name.  To  define  the  floating  point 
variable,  'FCQUNT',  initialized  to  the  value  100,  the  following  would  be 
executed: 

F 100  FVARIABLE  FCOUNT 

Floating  point  variables  are  reinitialized  by  the  'F."  entry.  Floating 
point  data  stored  as  the  floating  point  variable  is  accessed  by  the  ' Fe ’ 
entry.  Both  of  these  routines  work  much  like  the  corresponding  Integer 
routines.  For  example,  to  reinitialize  'FCOUNT'  to  the  value  1000,  the 
following  is  executed: 

F 1000  FCOUNT  F! 

To  push  on  the  stack  the  current  value  of  'FCOUNT',  the  following  is  executed 

FCOUNT  F@ 

STACK  MANIPULATION  ROUTINES 

Several  stack  manipulation  routines  exist  to  handle  floating  point 
numbers.  Each  of  these  will  be  explained  in  turn. 
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FDROP  - removes  a floating  point  number  from  the  stack. 

FDUP  - duplicates  the  top  floating  point  number  on  the  stack. 

FSWAP  - swaps  the  two  top  floating  point  numbers  on  the  stack. 

FUNDER  - copies  the  specified  floating  point  number  under  the  stack 
back  on  top  of  the  stack.  For  example,  to  copy  the  third 
floating  point  number  under  the  stack,  the  following  would 
be  executed: 

3 FUNDER 

Note  that  the  displacement  (three  in  the  above  example)  is  an  integer 
number. 


FLOATING  POINT  COMPARISON  ROUTINES 


Three  routines  are  available  to  test  pairs  of  floating  point  numbers 
for  certain  conditions.  These  routines  remove  the  pair  of  floating  point 
numbers  from  the  stack.  These  routines  leave  an  integer  value  of  one  if 
the  condition  is  true,  a zero  otherwise. 

The  routine  1 F>'  tests  the  second  number  under  the  stack  to  deter- 
mine if  it  is  greater  than  or  equal  to  the  top  number.  If  the  condition 
is  true,  a one  is  pushed  on  the  stack,  otherwise  a zero. 

The  routine  ' F<  1 tests  the  second  number  under  the  stack  to  deter- 
mine if  it  is  less  than  or  equal  to  the  top  number.  Again,  if  the  condi- 
tion is  true,  a one  is  pushed  on  the  stack,  otherwise  a zero. 

The  entry  'F=‘  tests  the  top  pair  of  floating  point  numbers  to 
determine  if  they  are  equal.  If  true,  a one  is  pushed  on  the  stack, 
otherwise  a zero. 


FLOATING  - INTEGER  CONVERSION 


The  entry  'FCONVERT',  converts  an  integer  number  on  the  stack  to 
a floating  point  value.  The  routine  'FLOAT'  converts  a floating  point 
number  back  to  an  Integer.  If  the  floating  point  number  represents  a 
value  greater  than  65535^  (the  largest  value  that  an  integer  may  represent), 

the  octal  value  177777  will  be  pushed  on  the  stack  regardless  of  the  actual 
floating  point  value.  Likewise,  if  the  floating  point  number  Is  less  than 
zero,  a zero  will  be  pushed  on  the  stack  regardless  of  the  actual  value. 

IMPLEMENTATION  OF  THE  C-FPP 


Several  key  concepts  are  behind  the  Internal  operation  of  the  C-FPP. 
These  concepts  will  be  described  in  each  respective  section  describing 
the  operation  of  the  C-FPP. 


MANTISSA  INPUT 


The  mantissa  is  input  such  that  leading  zeroes  are  Ignored  when 
the  mantissa  Is  greater  than  one.  If  the  mantissa  is  less  than  one, 
leading  zeroes  must  likewise  be  Ignored;  however,  the  exponent  value 
must  be  decremented  for  each  leading  zero.  A flow  chart  describing 
the  logical  floating  point  Input  operations  is  shown  as  Figure  1.  A 
functional  description  of  each  mantissa  input  routine  is  described  below. 
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CHARCOUNT  - this  is  a variable  which  holds  the  current  character 
count.  Each  legal  number  detected  increments  this  counter.  (The 
decimal  point  and  leading  zeroes  do  not  cause  'CHARCOUNT'  to  be  incre- 
mented . ) 

PTDEC  - this  is  a variable  which  holds  the  exponent  value  such  that 
the  number  may  appear  to  have  a value  between  zero  and  one. 

INCH  - this  routine  calls  the  current  character  input  routine.  The 
current  input  routine  can  be  either  ’ INTTY 1 or  ‘'BUFFIN'  depending  on 
the  input  mode.  (Disk  or  terminal  mode.) 

INCHAR  - this  routine  sets  the  destination  address  of  'INCH'  to  , 

either  the  'INTTY'  or  'BUFFIN'  routine.  This  is  determined  by  'looking' 
at  the  current  input  routine  address  of  ' UPDICT ' and  depositing  it  as 
the  destination  address  of  the  call  in  'INCH'.  'INCH'  is  then  executed. 

The  value  that  'INCH'  supplies  is  pushed  on  the  stack  (this  is  an  8 bit 
value)  followed  by  a zero  byte.  Thus,  the  character  that  'INCH'  supplies 
will  appear  on  the  stack  as  a 16  bit  value. 

+CHAR  - this  routine  increments  the  value  at  'CHARCOUNT'  by  one. 

+INL00P  - this  routine  continually  loops,  calling  'INCHAR'  until  a 
value  of  40g  is  detected  on  the  top  of  the  stack.  (Forty  octal  is  the 
ASCII  value°of  a space  character.)  If  the  value  on  the  stack  (that 
'INCHAR'  supplied)  is  not  40,  the  value  is  left  on  the  stack.  However, 
the  top  byte  is  'popped'  off  the  stack.  Each  time  through  the  loop 
'+CHAR'  is  called  which  increments  the  character  count  value. 

-IN  -this  routine  assumes  that  the  decimal  point  was  detected 
before  a significant  number  was  entered.  Thus,  the  floating  point 
number  will  represent  a value  less  than  one.  '-IN'  loops,  continually 
calling  'INCHAR'.  Leading  zeroes  are  ignored,  however,  the  value  at 
PDEC  is  decremented  by  one.  Once  a significant  number  is  entered,  a 
loop  equivalent  to  1 +INL00P ' is  executed,  without  calling  '+CHAR'. 

+IN  - this  routine  assumes  that  a significant  number  was  detected 
before  a decimal  point  was  detected;  therefore,  the  number  to  be  input 
represents  a number  greater  than  one.  ' +IN ' first  pops  the  top  byte 
off  the  stack  (the  value  on  the  stack  is  assumed  to  be  a value  that 
'INCHAR'  supplied),  increments  the  value  at  'PTDEC'  and  calls  '+CHAR' 
to  increment  the  character  count.  'INCHAR'  is  called  next.  The  value 
left  by  ' INCHAR1  is  tested  to  see  if  the  value  is  56  . This  number 
represents  the  ASCII  value  of  a decimal  point.  If  ° the  value  is  56,  it 
is  dropped  from  the  stack  and  ' +INL00P 1 is  called.  After  the  return 
from  '+INL00P',  '+IN'  unconditionally  ends. 

Assuming  that  the  above  value  was  not  56fl,  it  is  tested  for  the 
'space'  character  (40  octal).  If  true,  this  value  is  dropped  and  the 
routine  ends.  Otherwise,  the  routine  loops  back  to  input  another  charac- 
ter and  performs  the  above  testing  functions  over  again. 

FIN  - this  routine  continually  loops  until  a significant  character 
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input  by  'INCHAR'  is  detected.  Upon  detection  of  a significant  charac- 
ter, the  '+IN'  routine  is  called.  If  a decimal  point  is  first  encountered 
before  a significant  number  is  detected,  the  '-IN'  routine  is  called. 

Upon  detection  of  a space  before  a significant  character  or  a decimal 
point  is  detected,  the  routine  ends. 

FPACKTEST  - this  routine  tests  the  value  at  'CHARCOUNT'  for  the 
following  conditions.  If  'CHARCOUNT'  is  equal  to  six,  the  routine  ends. 

If  the  value  at  'CHARCOUNT'  is  greater  than  six,  the  extra  bytes  are 
popped  off  the  stack.  If  the  value  at  'CHARCOUNT'  Is  less  than  six, 
zeroes  are  pushed  on  the  stack  such  that  the  number  of  zeroes  added 
to  the  stack  and  the  'CHARCOUNT'  value  equals  six. 

FALIGN  - this  routine  AND's  out  all  except  the  four  least  signifi- 
cant bits  of  two  bytes  on  top  of  the  stack.  It  switches  the  order  of 
the  two  bytes  and  duplicates  the  number.  This  top  number  is  right 
shifted  by  four  bits.  The  two  numbers  are  then  added  together.  The 
new  number  generated  by  the  above  process  is  such  that  the  BCD  equivalent 
of  the  top  two  byte  values  on  the  stack  are  packed  into  one  byte. 

FPACK  - this  routine  calls  FPACKTEST  to  guarantee  six  bytes  on 
the  stack.  It  then  packs  the  six  bytes  into  three  bytes  in  the  required 
format.  (MSD's  on  top  of  stack,  etc.)  The  value  of  the  exponent  is 
then  evaluated.  If  the  value  at  'PTDEC'  is  less  than  one,  it  is  ANDed 
with  77  octal.  Otherwise,  1(9(5  octal  is  added  to  the  number.  Note  that 
this  has  the  effect  of  properly  computing  the  offset  exponent  value. 

The  MSB's  of  this  number  are  then  'popped'  off  the  stack.  Thus,  the 
four  bytes  left  on  the  stack  properly  represent  the  floating  point 
mantissa. 

F - this  routine  zeroes  the  value  of  'CHARCOUNT'  and  'PTDEC', 
calls  'FIN'  and  'FPACK'  to  allow  the  input  of  the  mantissa  and  to 
properly  'pack'  the  number  on  the  stack. 

F+  - identical  to  the  entry,  ' F ' . 

F-  - calls  ' F ' and  sets  the  most  significant  bit  of  the  exponent  byte 
on  the  stack. 


EXPONENT  INPUT 


The  routines  dealing  with  the  input  of  the  exponent  value  assume 
that  the  mantissa  has  already  been  input  and  properly  packed  on  the  stack. 

E - this  entry  pushes  a zero  byte  on  the  stack,  calls  ' UPDICT ' 
and  ' 1 (9CVRT ' to  input  the  exponent  and  convert  it.  The  converted 
value  is  added  to  the  previously  evaluated  exponent  supplied  by  the 
' F ' or  ' F- ' routine.  The  most  significant  byte  is  then  popped  off  the  stack. 

E+  - same  as  'E-. 

E-  - pushes  a zero  byte  on  the  stack,  duplicates  the  top  number  on 
the  stack  and  'AND's'  the  top  number  with  200  octal.  The  two  numbers 
on  top  of  the  stack  are  'swapped'.  This  has  the  effect  of  'saving' 
the  mantissa  sign  value.  'UPDICT'  and  ' 10CVRT'  are  called.  The  exponent 
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value  that  was  input  is  subtracted  from  the  previous  exponent  on  top  of 
the  stack  and  this  value  is  'ANDED'  with  177  octal.  The  new  exponent 
value  is  added  to  the  sign  value  number  under  the  stack. 

FLOATING  POINT  OUTPUT  ROUTINES 

Several  routines  are  used  to  properly  output  a floating  point 
number.  Each  of  these  routines  will  be  described  in  turn. 

U 

. — this  routine  outputs  a minus  sign  character  (-)  on  the 
terminal . 

.+  - this  routine  outputs  a plus  sign  (+)  character  on  the 
terminal . 

FSIGN  - this  routine  evaluates  the  sign  of  the  floating  point 
number  by  pushing  a zero  byte  on  the  stack,  duplicating  the  number 
on  the  stack  and  ANDing  it  with  200  octal.  If  the  resultant  number 
is  greater  than  zero  (200),  a negative  sign  is  output  by  calling 

Otherwise  '.+'  is  called.  The  top  byte  on  the  stack  is  'popped', 
restoring  the  original  number. 

.OUT  - this  routine  outputs  a decimal  point  on  the  terminal. 

FI  - this  routine  duplicates  the  top  number  twice.  The  top  number 
is  'ANDED'  with  360  octal  and  right-shifted  four  bits.  The  ASCII 
offset,  60  octal,  is  added  to  this  number  and  is  popped  and  output 
to  the  terminal.  This  has  the  effect  of  outputting  the  most  signifi- 
cant digit  on  the  terminal. 

The  next  number  on  the  stack  is  ANDed  with  17  octal  and  octal  60 
is  added  to  it.  This  number  is  popped  off  the  stack  and  output  to  the 
terminal.  This  displays  the  next  digit  of  the  mantissa. 

F2  - calls  '2  UNDER'  to  get  the  least  significant  two  bytes  of  the 
mantissa  on  top  of  the  stack.  The  byte  order  is  switched  and  * FI  * is 
called  to  display  the  next  two  digits.  The  remaining  number  left  by 
'FT  is  then  dropped  off  the  stack. 

F3  - '2  UNDER'  and  'FI'  is  called  to  output  the  least  significant 
two  digits.  The  remaining  number  left  by  1 FI 1 is  dropped.  Note  that 
the  floating  point  number  itself  remains  intact  on  the  stack  after 
'FI',  ' F2 ' and  'F3'  execute. 

E0UT  - outputs  an  ' E ' character  on  the  terminal. 

E.  - this  routine  properly  outputs  the  value  of  the  exponent. 

A zero  byte  is  added  to  the  stack,  ANDed  with  177  octal,  and  duplicated. 

One-hundred  octal  is  subtracted  from  the  top  number.  If  the  resultant 
value  is  100  octal  or  greater,  the  exponent  is  assumed  to  be  positive. 

The  entries  'E0UT'  and  '.+'  are  called.  The  exponent  is  converted 
in  an  analogous  fashion  to  the  way  the  '.10'  entry  converts  and  outputs 
a number  on  the  stack.  However,  only  two  digits  need  to  be  converted. 
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If  the  resultant  number  above  is  negative,  a negative  exponent 
is  assumed.  The  entry  and  'EOUT'  entry  are  executed.  100  octal 
is  subtracted  from  the  exponent  value  and  'MINUS'  is  executed.  100  octal 
is  subtracted  from  the  exponent  value  and  'MINUS'  is  executed.  The 
resultant  exponent  value  Is  output  in  a manner  similar  to  the  '.10' 
entry  as  discussed  above.  Both  branches  discussed  here  remove  the 
exponent  byte. 

F.  - this  entry  calls  'FSIGN',  '.OUT',  'FI',  'F2',  'F3',  EOUT 
and  1 E . ' to  properly  output  the  floating  point  number.  The  remaining 
three  bytes  left  on  the  stack  are  dropped  from  the  stack. 

FLOATING  POINT  ADD  and  SUBTRACT 

Several  routines  are  used  to  implement  floating  point  addition 
and  subtraction. 

SPA  - this  constant  holds  the  address  of  the  stack  pointer. 

ALIGN  - ADDR  - this  routine  initializes  the  H & L and  D & E 
register  pairs  such  that  the  H & L registers  point  to  the  exponent 
address  of  the  top  floating  number  on  the  stack  and  the  D & E registers 
point  to  the  second  number  under  the  stack. 

HCOPY  - copies  a byte  string  from  the  address  pointed  to  by  the 
H & L registers  to  the  address  pointed  to  by  the  D & E registers.  The 
number  of  bytes  to  be  copied  is  contained  in  the  ' B ' register. 

FADDT  - this  routine  adds  the  byte  referenced  by  the  H & L regis- 
ters to  the  byte  referenced  by  the  D & E registers.  The  result  is  copied 
back  to  the  location  referenced  by  the  D & E registers.  The  result  of 
the  addition  must  be  'decimal  adjusted'  after  the  addition.  (The  8080 
has  a 'decimal  adjust  accumulator'  instruction.)  The  H & L and  D & E 
register  pairs  are  decremented.  If  the  ' B ' register  is  not  zero,  the 
above  series  of  operations  are  repeated. 

INCSHIFT  - this  routine  does  a multibyte  'BCD'  digit  shift  starting 
at  the  address  in  the  H & L registers.  Below  is  illustrated  three 
bytes  with  the  'BCD'  digits  numbered: 

3 4 (Memory  increments 

^ 2 upward) 

After  the  shift,  the  byte  contents  would  appear  as  follows: 

4 5 

2 3 

D 1 


The  BCD  digit  'O'  above  would  be  filled  in  with  the  contents  of  the  ' D ' 
register.  The  number  of  bytes  to  be  shifted  is  held  in  the  ' B ' register 
upon  entry  into  the  'INCSHIFT'  routine. 


I 
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FSUBT  - this  routine  subtracts  the  byte  referenced  by  the  H & L 
registers  from  that  referenced  by  the  D & E registers.  This  byte  sub- 
traction must  be  a decimal  subtraction.  The  way  this  is  implemented  is 
given  in  the  flow  chart  in  Figure  2.  Note  that  the  results  of  the  aux- 
iliary carry  is  used  to  generate  the  result.  If  another  computer  does 
not  have  this  function,  then  a more  complex  method  must  be  used  to 
generate  the  auxiliary  carry.  (One  way  would  be  to  perform  the  sub- 
traction after  masking  out  the  left  four  bits.  An  auxiliary  carry 
is  then  tested  by  examining  the  status  of  bit  4,  assuming  that  bit 
0 is  defined  as  the  least  significant  bit.) 

FTEMP  - this  is  used  as  a temporary  memory  block.  Three  zeroes 
are  initially  compiled  into  'FTEMP'. 

ALIGN  - this  routine  calls  'ALIGN  - ADDR'.  It  subtracts  the 
byte  referenced  by  the  H & L registers  from  the  byte  referenced  to  by 
the  D & E registers  after  masking  out  the  sign  bit.  If  the  result 
is  zero,  the  routine  ends.  If  the  result  ended  in  a negative  number, 
the  result  is  complemented  and  incremented.  The  exponent  value  pointed 

to  by  the  H & L registers  is  copied  into  the  exponent  value  pointed 

to  by  the  D & E registers.  However,  the  original  sign  is  saved.  The 

D & E and  H & L registers  are  also  swapped. 

The  result  of  the  exponent  subtraction  evaluated  above  (contained 
in  the  accumulator)  is  compared  with  the  value,  six.  If  the  accumulator 
is  greater  than  six,  it  is  set  equal  to  six.  The  following  loop  is 
executed.  The  number  of  loops  made  depends  on  the  value  of  the  accumulator. 

The  H & L registers  are  first  incremented  to  point  to  the  most  signifi- 
cant digit  byte. 

The  loop  discussed  above  consists  of  the  following  operations. 

The  ' B ' register  is  initialized  with  the  value  three,  the  ' D ' register 
with  zero.  The  contents  of  the  H & L registers  are  saved  by  popping 
them  on  the  return  stack.  The  ' INCSHIFT ' routine  is  called.  Upon 
return,  the  H & L registers  are  restored.  The  accumulator  value  (stored 
in  the  'e ' register)  is  decremented  and  tested  for  zero.  If  not  zero, 
the  loop  repeats  again. 

The  result  of  the  above  series  of  operations  is  to  align  the 
floating  point  numbers  such  that  the  most  significant  digit  of  each 
floating  point  number  has  the  required  significance,  depending  on  the 
value  of  the  exponents.  If  the  exponents  differ  by  a value  greater 
than  five,  it  can  be  seen  that  one  floating  point  number  will  be  zeroed. 

The  floating  point  number  that  is  shifted  depends  on  which  number  has 
the  smallest  exponent. 

FNORM  - this  routine  is  used  after  the  addition  or  subraction  is 
performed  to  'normalize'  the  second  floating  point  number  under  the 
stack,  i.e.  to  assure  that  the  most  significant  digit  of  the  result 
is  non-zero.  It  continually  does  a four  bit  left  shift  until  the  most 
significant  BCD  digit  contains  a non-zero  value.  Before  the  shifting 
operation  takes  place,  however,  the  floating  point  number  is  tested 
to  see  if  any  of  the  BCD  digits  are  non-zero.  If  all  are  zero,  the 

Pi 
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Zero  Accumulator 
and  Carry 
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Figure  2.  The  'decimal'  subtract  flow  chart. 
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routine  ends.  Each  BCD  left  shift  causes  the  least  significant  BCD 
digit  to  be  filled  in  with  zeroes  and  also  decrements  the  exponent 
value  by  one. 

-ADD  - this  routine  first  copies  the  second  floating  point  number 
under  the  stack  into  'FTEMP'.  It  then  properly  aligns  the  D & E and 
H & L register  pairs  to  point  to  the  least  significant  digit  byte  of 
each  floating  point  number.  The  'FSUBT'  routine  is  called  which  sub- 
tracts the  two  floating  point  numbers.  If  no-carry  resulted,  a jump 
to  the  'FNORM'  routine  is  made  to  normalize  the  resulting  number. 

If  a carry  resulted  from  the  subtraction,  this  indicates  that 
the  bottom  number  is  less  than  the  top  number.  In  this  case  the  top 
floating  point  number  is  copied  into  the  bottom.  The  contents  of  the 
top  floating  point  number  is  copied  from  'FTEMP'.  The  sign  bit  of  the 
bottom  exponent  is  then  switched  to  the  opposite  value.  A jump  is  made 
back  up  to  the  part  of  the  routine  where  the  registers  are  aligned. 

+FADD  - this  routine  calls  'ALIGN'  and  "ALIGN  - ADDR'.  It  then 
tests  the  two  sign  bits  of  each  exponent.  If  the  sign  bits  are  not 
equal,  a jump  to  the  '-ADD'  routine  is  made.  Otherwise,  the  H & L 
and  D & E registers  are  made  to  point  to  the  least  significant  byte 
of  both  floating  point  numbers  and  the  'FADUT'  routine  is  called. 

Upon  return  of  the  'FADDT'  routine,  the  status  of  the  carry  bit  is 
tested.  If  the  carry  bit  has  not  been  set,  the  routine  ends.  Other- 
wise the  exponent  of  the  second  number  under  the  stack  is  incremented, 
the  'D ' register  is  initialized  to  20  octal  and  the  ' B ' register  is 
initialized  to  three.  The  H & L register  is  made  to  point  to  the 
most  significnat  digit  byte  of  the  second  number  under  the  stack  and 
the  ' I NCSHIFT ' routine  is  called.  This  right-shifts  the  digits  while 
depositing  a one  as  the  most  significnat  digit. 

FADD  - this  routine  calls  ' +FADD ' to  implement  the  floating  point 
addition.  After  completion  of  '+FADD',  the  top  floating  point  number 
is  removed  by  calling  'DROP'  twice. 

FSUB  - this  routine  switches  the  sign  bit  of  the  exponent  byte 
of  the  top  number  on  the  stack  and  calls  'FADD'. 

FLOATING  POINT  ADD  and  SUBTRACT  - OVERVIEW 


At  this  point  it  would  be  instructive  to  give  a brief  overview  of 
the  general  flow  of  logic  of  the  addition  and  subtraction  floating  point 
routines.  First,  a memory  map  of  the  system  upon  entry  into  this  group 
of  routines: 
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Note  that  the  top  of  the  stack  is  at  the  exponent  byte  of  the  top 
floating  point  number. 

The  1 FSUB ' routine  simply  changes  the  value  of  the  mantissa 
sign  bit  of  the  top  floating  point  number.  This  has  the  effect  of 
changing  the  'sense'  of  the  operation  that  the  'FADD'  routine  will 
execute.  (The  'FSUB'  routine  calls  the  'FADD'  routine  after  changing 
the  mantissa  sign  bit  of  the  top  number.)  The  'FADD'  routine  deter- 
mines which  operation  to  perform  by  looking  at  both  mantissa  sign 
bits  of  the  two  floating  point  numbers  and  performs  an  'EXCLUSIVE  - 
OR'  logical  function  on  the  two  bit  values.  Remember  that  this  function 
will  result  in  a zero  if  the  two  values  are  equal , a one  if  they  are 
unequal.  A zero  result  would  indicate  that  the  numbers  should  be 
added,  i.e.,  the  sign  of  both  mantissas  are  the  same.  A 'one'  result 
indicates  that  the  numbers  should  be  subtracted.  Thus,  the  'FADD' 
routine  either  jumps  to  the  '-ADD'  routine  or  calls  the  'FADDT'  routine 
depending  if  the  logical  result  of  the  'EXCLUSIVE  - OR'  operation  left 
a 'one'  ora  'zero',  respectively. 

Before  the  'FADDT'  or  '-ADD'  routines  can  be  executed,  it  is  necessary 
to  'align'  the  floating  point  numbers.  To  do  this,  the  'FADD'  (actually 
the  '+FADD')  routine  calls  the  'ALIGN'  routine.  This  routine  aligns 
one  of  the  floating  point  numbers  such  that  both  numbers  have  the  same 
significance  relative  to  the  exponent.  For  example,  take  the  floating 
point  numbers  1.0  E0  and  1.0  El.  If  the  mantissas  of  these  numbers  were 
added  or  subtracted,  an  obvious  error  would  occur  because  the  mantissa 
with  the  exponent  of  one  represents  a number  ten  times  greater  than  the 
mantissa  with  an  exponent  of  zero.  To  overcome  this  problem,  the  'ALIGN' 
routine  compares  the  magnitude  of  the  exponents.  If  they  are  equal,  noth- 
ing needs  to  be  done  and  the  routine  ends.  In  the  above  example,  the 
exponents  differ  by  one;  therefore,  the  mantissa  with  the  smallest  exponent 
Is  shifted  'right*  one  decimal  place.  If  the  exponent  differs  by  greater 
than  six,  the  mantissa  with  the  smallest  exponent  is  shifted  right  six 
decimal  places  which  effectively  zeroes  the  number.  A zero  will  then  be 
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simply  added  or  subtracted  from  the  other  number,  giving  the  correct 
result. 

The  1 FADDT'  routine,  if  executed,  will  simply  add  the  two  floating 
point  numbers  using  decimal  addition.  (Review  the  'FADDT'  routine  des- 
cription.) On  the  return  of  this  routine,  the  '+FADD'  routine  checks 
the  status  of  the  carry  bit.  A carry  of  'one'  indicates  that  an  over- 
flow occurred  while  adding  the  numbers.  The  '+FADD'  routine  right  shifts 
the  second  number  right  one  decimal  place  (by  calling  the  ' INCSHIFT ' 
routine)  and  deposits  a decimal  'one'  in  the  most  significant  decimal 
position.  It  also  increments  the  exponent  by  one,  generating  the  correct 
result.  If  no  carry  occurred,  the  '+FADD'  routine  would  end  at  that  point. 

The  '-ADD'  routine  is  necessarily  more  complicated.  This  routine 
first  copies  the  contents  of  the  second  floating  point  number  into  the 
temporary  location,  ' FTEMP ' . The  reason  for  this  will  be  explained  below. 

The  two  floating  point  numbers  are  subtracted  by  calling  'FSUBT'. 

The  status  of  the  carry  bit  is  now  tested  to  see  if  a 'borrow'  occurred. 

A borrow  indicates  that  the  top  floating  point  number  was  greater  than  the 
second  floating  point  number.  To  correct  for  this  situation,  the  top 
floating  point  number  is  copied  into  the  position  held  by  the  second 
floating  point  number,  and  the  contents  of  the  temporary  location,  'FTEMP', 
is  copied  into  the  location  of  the  top  floating  point  number.  The  original 
exponent  of  the  second  floating  point  number  is  restored  after  changing  the 
sense  of  the  sign  bit.  Note  that  the  above  effectively  switches  the  rela- 
tive locations  of  the  two  floating  point  numbers.  These  numbers  are  sub- 
tracted as  before. 

The  result  of  the  subtraction  must  be  normalized  such  that  the  most 
significant  digit  is  non-zero.  A branch  to  ' FNORM ' is  made.  This  routine 
returns  if  the  result  is  totally  zero.  If  a non-zero  digit  is  detected, 
a series  of  left-decimal  shifts  are  made  such  that  the  most  significant 
digit  is  non-zero.  Each  left-digit  shift  also  causes  the  exponent  to  be 
decremented. 

FLOATING  POINT  MULTIPLY 

Floating  point  multiplication  is  accomplished  in  the  following  manner. 
Consider  the  following  problem: 

35 
X 18 

This  probfem  assumes  two  digit  floating  point  numbers;  however,  the 
arguments  presented  can  be  extended  to  any  number  of  digits. 

Multiplication  can  be  accomplished  by  repetitive  addition;  this  is 
exactly  what  this  floating  point  package  does.  The  top  number  (35)  is 
added  to  itself  the  number  of  times  indicated  by  the  first  digit  of  the 
multiplier  (8): 


35 

8 

280 

Let's  now  shift  the  multiplicand  left  one  digit  and  'multiply'  the  new 
multiplicand  by  the  next  multiplier  digit: 

350 

_L 

350 

Now  add  the  two  results: 

280 

350 

The  sum  is  630,  which  is  the  required  answer.  Thus,  the  problem  of  multi- 
plication is  handled  by  successively  adding  the  multiplicand  to  itself  the 
number  of  times  of  each  multiplier  digit.  The  multiplicand  is  left  shifted, 
and  the  new  multiplicand  is  added  to  itself  the  required  number  of  times 
according  to  the  value  of  the  next  significant  digit  of  the  multiplier. 

The  sums  are  added  and  the  process  repeated,  depending  on  the  number  of 
digits.  This  process  of  generating  the  answer  to  a multiplication  problem 
is  the  way  the  C0NVERS  ' FMUL ' routine  works. 

FLOATING  POINT  MULTIPLY 


Each  of  the  routines  supporting  the  floating  point  multiply  function 
will  be  described  here. 

DCRSHIFT  - this  routine  right  shifts  decimal  digits,  starting  at  the 
address  pointed  to  by  the  H & L registers.  The  contents  of  the  ' D ' register 
will  be  copied  into  the  most  significant  digit  position.  The  number  of 
memory  bytes  that  are  to  be  shifted  should  be  in  the  ' B ' register  upon 
entry  into  this  routine.  Below  is  a memory  map,  before  and  after  the 


shifting  operation,  assuming  a four  byte  shift: 
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*F*  - this  routine  is  the  'heart'  of  the  floating  point  multiply 
function.  It  first  zeroes  out  the  first  9^0  locations  in  FTEMP  and  copies 
the  contents  of  the  mantissa  of  the  second  ^floating  point  number  into  the 
next  three  locations  in  FTEMP,  most  significant  digits  first.  The  'C' 
register  is  initialized  to  the  value  six.  At  this  point,  the  D & E registers 
are  pointing  to  the  'high  end'  of  the  temporary  buffer  'FTEMP',  (FTEMP  + 12^  ) 
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and  the  H & L registers  are  pointing  to  the  least  significant  digit  byte  of 
the  top  floating  point  number.  A 'master  loop*  begins  execution  at  this  point. 

The  'C  register  is  copied  into  the  'A'  register  which  is  right  shifted. 
This  will  either  set  or  reset  the  carry  bit,  depending  on  the  previous 
value  (before  shifting)  of  the  least  significant  bit  of  the  'A'  register. 

The  accumulator  is  then  loaded  with  the  value  pointed  to  by  the  H & L 
registers.  This  is  the  least  significant  digit  byte  of  the  top  floating 
point  number  at  this  point.  If  the  carry  bit  is  not  set,  the  left  four 
bits  of  the  accumulator  are  zeroed.  Otherwise  the  right  four  bits  are 
zeroed  and  the  accumulator  is  right  shifted  four  places.  The  accumu- 
lator is  now  stored  in  the  ' B ' register.  Note  that  the  ' B ' register 
will  hold  at  this  point  the  number  of  additions  that  the  multiplicand 
should  be  added  with  itself.  Both  the  contents  of  the  B & C and  H & L 
registers  are  pushed  on  the  return  stack.  A copy  of  the  ' B ’ register 
is  also  made  into  the  'C'  register.  The  ‘B1  register  is  checked  for 
zero.  If  it  is,  the  addition  loop  is  skipped  below. 

The  addition  loop  consists  of  initializing  the  D & E registers  to 
'FTEMP*  + 5,  and  the  H & L registers  to  'FTEMP'  + 11, n . The  1 B 1 register 
is  loaded  with  the  value  six  and  'FADDT'  is  called.  The  'C'  register 
is  decremented;  if  it  is  not  zero,  the  addition  loop  is  repeated  again. 
Otherwise  it  ends. 

The  ' D ' register  is  loaded  with  zero,  the  1 B ' register  with  the 
value  six,  and  the  H & L registers  are  loaded  with  the  value  of  'FTEMP' 

+ 11 io-  The  routine  ' DCRSHIFT ' is  called.  This  has  the  effect  of 
left-digit  shifting  the  multiplicand  which  was  described  in  the  begin- 
ning of  this  section. 

The  B & C and  H & L registers  are  restored  by  popping  them  off  the 
return  stack.  The  'C'  register  is  decremented  and  if  zero,  the 
routine  ends.  Otherwise  the  'C'  register  is  copied  into  the  'A'  register 
which  is  right  shifted.  If  the  carry  bit  is  set,  a jump  is  made  again 
back  to  the  start  of  the  master  loop. 


Note  in  the  above  description  that  the  contents  of  the  'C'  register 
determine  whether  the  left  or  right  digit  of  each  byte  is  to  be  the 
multiplier.  If  the  'C'  register  is  even,  the  right  digit  is  multiplied, 
otherwise  the  left.  Each  time  through  the  master  loop,  the  'C'  register 
is  decremented.  This  also  has  the  effect  of  decrementing  the  H & L 
registers  only  when  the  ' C ’ register  is  even.  Thus  the  master  loop 
must  be  executed  twice  before  the  next  higher  pair  of  multiplier  digits 
are  operated  upon. 

CKFACC  - this  routine  checks  the  second  floating  point  number  for 
a zero  condition.  If  this  number  is  zero,  it  drops  the  top  floating 
point  number  from  the  stack  and  returns  with  the  zero  flag  set. 

6ETEXP  - this  routine  returns  with  the  value  of  the  second  floating 
point  exponent  in  the  'C'  register  and  the  value  of  the  top  number  in 
the  'B'  register.  In  both  cases,  the  sign  bit  of  the  mantissa  is  zeroed. 
This  routine  also  determines  the  sign  of  the  result  by  ' EXCLUSI VE-ORING * 
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the  two  sign  bits.  The  result  of  the  EXCLUSIVE-OR  operation  is  stored 
back  into  the  sign  bit  of  the  second  floating  point  number  after  zeroing 
all  other  bits. 

FERROR  - this  routine  will  output  a (?9)  on  the  terminal  and  calls 
'JMPEXEC' . 

F*N0RM  - this  routine  checks  to  see  if  the  most  significant  digit 
in  the  temporary  buffer  1 FTEMP ' is  non-zero.  (This  digit  is  at  the  first 
address  of  'FTEMP'.)  If  non-zero,  the  routine  ends.  Otherwise,  the  ' D ' 
register  is  zeroed,  the  H & L registers  are  set  to  point  to  'FTEMP'  + 3, 
and  'DCR  SHIFT'  is  called.  The  exponent  of  the  second  floating  point 
number  is  also  decremented.  This  has  the  effect  of  normalizing  the  result 
of  the  multiplication. 

FTARGET  - this  routine  transfers  the  result  of  the  multiplication 
in  the  temporary  buffer,  'FTEMP',  into  the  second  floating  point  number. 
The  entry,  'DROP',  is  called  twice  to  remove  the  top  number. 

FMUL  - this  routine  first  calls  'CKFACC'  and  ends  if  the  zero  bit 

was  set.  Otherwise,  ' GETEXP * is  called  and  the  exponents  are  then  added 
together  in  the  accumulator.  To  re-normal ize  the  exponents,  300  octal 

is  added  to  the  result  and  it  is  saved  in  the  'C'  register. 

To  determine  if  an  overflow  or  underflow  condition  resulted,  the 
accumulator  is  left  shifted.  If  a carry  results,  'FERROR'  is  called. 

The  sign  bit  of  the  second  floating  point  number  is  added  to  the  value 
in  the  'C'  register  and  the  result  is  copied  back.  This  is  the  new 
computed  exponent.  The  routines  '*F*',  'F*N0RM'  and  'FTARGET'  are 
called.  At  the  conclusion  of  these  routines,  the  D & E registers  point 
to  the  memory  byte  after  the  least  significant  digit  byte  of  the  second 
floating  point  number. 


The  routine  must  now  round  off  the  answer.  It  does  this  by  loading 
the  value  at  'FTEMP'  + 3 into  the  accumulator  and  adds  120  octal  to  it. 

It  then  decimal  adjusts  the  accumulator.  If  no  carry  resulted,  the  digit 
was  less  than  5 and  the  routine  ends.  Otherwise,  each  byte  (starting  with 
the  least  significant  digit  byte)  has  zero  added  to  it.  The  carry  bit 
is  also  added.  (The  8080  has  an  addition  with  carry  instruction.)  The 
byte  is  then  decimal  adjusted  and  the  procedure  is  repeated  for  each  of 
the  other  two  bytes. 

FLOATING  POINT  DIVISION 

Floating  point  division  is  different  from  multiplication  in  that 
division  can  be  thought  of  as  repetitive  subtraction  instead  of  addition. 
As  an  example: 

212 

To  perform  the  division,  we  could  count  the  number  of  times  that  212 
can  be  subtracted  from  689  while  leaving  a positive  difference.  In 
the  above  example,  three  subtractions  can  be  performed: 


0 
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689 
- 212 
477 
- 212 
265 
- 212 
+ 53 

Therefore,  the  first  digit  of  the  dividend  is  three.  Now  lets  shift 
the  positive  difference  left  one  digit  and  repeat  the  process  to  get 
the  next  digit  of  the  dividend: 

+ 530 
- 212 
318 
- 212 
+ 106 

This  time  212  can  be  subtracted  twice,  therefore,  the  next  digit  is  two. 
Let's  repeat  for  a third  time: 

+1060 
- 212 

- 212 
53F 
- 212 
~424 
- 212 
"“212 
- 212 
000 

This  time  212  can  be  subtracted  five  times.  Therefore,  the  dividend  is 
3.25.  Since  both  numbers  are  normalized  before  the  division  starts,  the 
position  of  the  decimal  point  can  be  assumed. 

In  cases  where  the  divisor  is  larger  than  the  quotient: 

314  fT62 

The  divisor  cannot  be  subtracted  into  the  quotient  without  giving  a 
negative  result.  Therefore  the  first  digit  of  the  dividend  is  zero  and 
we  repeat  the  process  as  before.  After  two  more  digits  of  the  dividend 
have  been  found,  the  question  is  asked,  is  the  first  digit  a zero?  If 
yes,  the  exponent  of  the  result  is  decremented  and  the  process  repeated 
for  one  more  digit.  Thus,  using  this  approach,  three  digits  of  signifi- 
cance are  guaranteed. 

To  'round  off'  the  dividend,  the  process  could  be  repeated  one  more 
time.  If  the  extra  digit  is  greater  than  four,  one  is  added  to  the  quo- 
tient. 
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The  above  logic  sequences  are  what  takes  place  in  the  CONVERS 
floating  point  division  routine.  The  divisor  is  continually  subtracted 
from  the  quotient  until  a negative  number  is  generated  (the  carry  flag, 
indicating  a borrow,  has  been  set).  Since  a negative  number  has  been 
generated,  the  routine  must  add  the  divisor  to  the  difference  to  gen- 
erate a positive  number.  The  number  of  subtractions  is  stored  in  the 
1 B ' register. 

/FSTORE  - this  routine  is  used  to  copy  the  contents  of  the  digit 
bytes  of  the  two  floating  point  numbers  to  the  temporary  buffer  'FTEMP' 
in  the  following  format: 

BYTE  CONTENT  MEMORY  ADDRESS 


ZEROED  FTEMP 

MSD  of  2nd  NUMBER  + 1 

NEXT  MSD  of  2nd  NUMBER  + 2 

LSD  of  2nd  NUMBER  + 3 

ZEROED  + 4 

MSD  of  TOP  NUMBER  + 5 

NEXT  MSD  of  TOP  NUMBER  + 6 

LSD  of  TOP  NUMBER  + 7 

+ 8 
+ 9 

ZEROED  (this  is  a +10 


flag  byte) 


FROUN  - this  routine  is  used  to  round  off  the  second  floating 
point  number  after  division  has  taken  place.  It  assumes  that  the  ' B ‘ 
register  holds  the  '7th  digit'  which  is  tested  to  see  if  it  is  greater 
than  or  equal  to  five.  If  so,  the  carry  bit  is  set  and  'one'  is  added 
to  the  second  floating  point  number  in  a process  similar  to  the  way  the 
' FMUL ' routine  rounds  off  the  second  floating  point  number  after  multi- 
plication. 

/F/  - this  entry  is  the  'heart'  of  the  floating  point  division 
function.  It  consists  basically  of  three  loops  as  described  below.  The 
first  operation  is  to  initialize  the  'C'  register  with  the  value  of  six. 

The  'outer  loop'  begins  by  initializing  the  ' B ' register  with  the 
value  of  377  octal.  Now  begins  the  'inner  loop'.  The  D & E registers 
are  set  to  point  to  'FTEMP'  + 7.  The  B & C registers  are  pushed  on  the 
return  stack.  The  ' B ' register  is  initialized  to  four  and  the  ' FSUBT ' 
routine  is  called.  The  B & C registers  are  popped  off  the  return  stack 
and  the  ’ B ' register  is  incremented.  If  no  carry  resulted  from  the  sub- 
traction, a jump  is  made  back  to  the  start  of  the  inner  loop.  At  the  end 
of  this  loop,  the  ' B ' register  holds  the  digit  count  of  the  first  'round' 
of  the  division. 

The  value  of  the  flag  ('FTEMP'  + 1 0-| q)  is  tested,  if  it  is  not  zero, 
the  routine  ends.  Otherwise  the  B & C registers  are  stored  on  the  return 
stack  and  the  'C'  register  is  initialized  to  three.  The  H & L registers 
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are  made  to  point  to  the  least  significant  digit  byte  of  the  second 
number  on  the  stack.  The  'most  inner'  loop  begins  below. 

The  value  pointed  to  by  the  H & L registers  is  loaded  into  the 
accumulator.  A copy  is  made  into  the  ' D'  register.  The  left  four  bits 
are  masked  and  the  accumulator  is  rotated  left  four  bits.  The  contents 
of  the  ' B ' register  is  added  to  the  accumulator.  The  accumulator  Is 
copied  back  into  the  byte  pointed  to  by  the  H & L registers.  The  ac- 
cumulator is  loaded  with  the  contents  of  the  ' D'  register  and  the  right 
four  bits  are  masked.  The  accumulator  is  rotated  right  four  bits.  The 
result  is  saved  in  the  ' B ' register.  The  H & L registers  are  decre- 
mented. The  'C'  register  is  decremented  and  if  it  is  not  zero  a jump 
is  made  to  the  start  of  the  'most  inner'  loop. 

Otherwise,  the  B & C registers  are  restored  by  popping  them  off 
the  stack.  The  D & E registers  are  made  to  point  the  'FTEMP'  + 3 and 
the  H & L registers  to  'FTEMP*  + 7.  The  ' B ' register  is  initialized 
to  four  and  the  'FADDT'  routine  is  called. 

The  ' B 1 register  is  again  initialized  to  four  and  the  H & L reg- 
isters are  made  to  point  to  'FTEMP'  + 3.  The  ' D ' register  is  zeroed 
and  the  'DCRSHIFT'  routine  is  called.  The  'C'  register  is  decremented 
and  if  not  zero,  a jump  is  made  to  the  start  of  the  outer  loop.  Other- 
wise the  D & E registers  are  made  to  point  to  the  most  significant  digit 
byte  of  the  second  floating  point  number.  This  byte  is  'AND'ed  against 
360  octal  to  determine  if  the  most  significant  digit  is  zero.  If  so, 
the  exponent  is  decremented,  the  'C'  register  is  initialized  to  one, 
and  a jump  is  made  to  the  start  of  the  outer  loop. 

If  the  most  significant  digit  is  not  zero,  the  flag  at  'FTEMP'  + 
10]o  is  set  to  one  and  a jump  is  made  to  the  start  of  the  outer  loop. 

If  the  most  significant  digit  is  not  zero,  the  flag  at  'FTEMP'  + 

1 0 i q is  set  to  one  and  a jump  is  made  to  the  start  of  the  outer  loop. 
This  last  time  through  the  loop  allows  the  ' B ' register  to  contain  the 
'seventh  digit'  so  that  the  quotient  can  be  properly  rounded  off. 

FDIV  - this  routine  calls  'CKFACC'  to  determine  if  the  second 
floating  point  number  is  zero.  If  so,  the  routine  ends.  Otherwise, 
the  'GETEXP'  routine  is  called.  On  return  of  this  routine  the  top 
floating  point  number  is  tested  to  see  if  it  is  zero.  If  it  Is,  the 
'FERROR'  routine  is  called.  If  not  zero  the  ' B ' register  containing 
the  top  number  exponent  is  subtracted  from  the  'C'  register  containing 
the  second  number  exponent.  To  normalize  the  exponent,  100  octal  is 
added  and  the  result  is  incremented.  The  result  is  stored  in  the  ' C ' 
register.  To  test  for  overflow  or  underflow,  the  result  is  left 
shifted.  If  a carry  resulted,  the  'FERROR'  routine  is  called.  Other- 
wise, the  contents  of  the  ' C*  register  is  added  to  the  sign  bit  of  the 
exponent  byte  of  the  second  floating  point  number.  The  '/FSTORE', 

'/F /',  and  'FROUN'  routines  are  called.  The  top  floating  point  number 
is  removed  by  calling  'DROP'  twice. 
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GENERAL 

The  CONVERS  array  package  is  designed  to  allow  the  user  to 
create  both  floating  point  and  integer  arrays  of  any  arbitrary 
dimension.  To  dimension  an  integer  array,  the  following  format 
is  used: 

A B C . . . X DIMENSION  NAME 

where  'NAME'  is  the  array  name.  The  letters  A,  B,  C,  etc.  are  the 
scalar  integer  values  of  each  dimension  and  'X'  is  the  number  of 
dimensions  of  the  array.  Thus,  to  dimension  an  array  called  'ARRX', 
in  two  dimensions  with  the  scalar  value  of  10  and  20  in  each  dimension 
respectively,  the  following  format  is  used  to  create  the  array: 

l<fr  2<|>  2 DIMENSION  ARRX 

The  array  'ARRX'  will  then  have  the  capability  of  storing  2<P4>  integers 
within  Itself. 

For  reasons  to  be  discussed  below,  'ARRX'  could  just  as  well  be 
defined  as  a one- dimensional  array  as  follows: 

2<t>4>  1 DIMENSION  ARRX 

In  this  case,  'ARRX'  has  been  defined  as  a one  dimensional  array  of 
2<M  Integer  locations. 

Floating  point  arrays  are  created  with  the  'FDIMENSION'  entry 
with  the  same  format  as  is  used  to  create  Integer  arrays: 

A B C . . . X FDIMENSION  NAME 


The  values  A,  B,  C,  etc.  and  'X'  are  Integer  values. 


Note  !!! 

1)  The  CONVERS  array  source  code  below  was  taken  off  the  disk 

In  a block  format.  Note  that  the  end  of  each  'block'  Is  followed 
by  the  character  string  ' ;S  t'.  If  the  CONVERS  array  source  code 
is  to  be  'typed'  Into  the  computer  (with  CONVERS  running)  or  Is  to 
be  entered  on  mass  storage,  the  above  characters  are  ignored. 

2)  The  source  code  shown  references  a routine  called  'JMPEXEC' 
that  Is  not  contained  In  either  the  Initial  machine  code  dictionary 
or  the  standard  high  level  dictionary.  (It  Is  In  fact  defined  in 
our  CONVERS  disk  system.)  This  was  an  oversight  that  was  not  caught 
when  the  CONVERS  array  package  was  written  or  documented.  Therefore 
the  user  must  first  define  this  routine  (as  follows)  before  the 
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CONVERS  array  package  Is  compiled: 

CODE  JMPEXEC  303  1,  237  , RTN 

Otherwise,  the  CONVERS  array  package  is  totally  compatible  with 
standard  8080  CONVERS. 

Both  integer  and  floating  point  arrays  are  conceptually  similar 
to  integer  and  floating  point  variables.  The  only  difference  is  that 
a displacement  value  must  be  on  the  stack  before  the  array  name  is 
executed.  For  Instance,  to  get  the  address  of  the  first  array  element 
of  'ARRX',  the  following  character  string  is  executed: 

1 ARRX 

The  above  character  string  will  replace  the  'one'  on  the  stack  with 
the  address  of  the  first  element  of  'ARRX'.  The  address  of  the  100th 
element  of  'ARRX'  is  found  by  executing  the  following  character  string: 

1 4><p  ARRX 

Thus,  in  general,  the  address  of  the  Nth  array  element  of  an  array 
'NAME*  Is  found  by  the  execution  of  the  generalized  character  string: 

N NAME 

The  array  'NAME'  can  be  either  a floating  or  integer  array. 

Since  the  above  generalized  character  string  leaves  the  address  of 
the  Nth  array  element  on  the  stack,  this  address  can  be  replaced  with  the 
value  at  this  address  by  the  '@'  or  'F@'  entry  depending  on  whether 
'NAME*  Is  an  integer  or  floating  point  array  respectively.  Likewise, 
the  Nth  array  element  can  be  modified  by  executing  the  '!'  or  the  ' F! ' 
entry  depending  again  on  whether  'NAME'  is  an  Integer  or  floating 
point  array. 

Whenever  the  user  attempts  to  access  an  array  element  outside 
the  bounds  of  the  Initial  dimensioned  array  value,  a fatal  error  is 
assumed  and  the  error  message  '?11'  will  be  entered  on  the  terminal. 
Whatever  entry  was  executing  will  terminate,  and  an  unconditional 
jump  will  be  made  to  the  'EXECUTIVE'  entry.  (See  note  at  the  begin- 
ning of  this  section).  For  Instance,  since  'ARRX'  has  been  dimensioned 
for  200  values.  If  the  user  attempts  to  access  the  201th  array  element, 
a fatal  error  will  occur. 

EXAMPLES 

The  following  examples  will  show  how  an  array,  once  defined,  can 
be  treated  as  an  arbitrary  array  of  any  dimension.  This  is  because 
a multi-dimensional  array  must  necessarily  be  stored  In  the  computer 
as  a single  dimensional  array.  It  Is  up  to  the  user  as  to  the  way 
in  which  array  elements  are  to  be  accessed. 


Assume  that  the  array,  'NAME'  is  an  Integer  array  dimensioned 
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to  100  decimal.  (The  user  might  have  created  the  array  as  a 10  x 10, 

20  x 5,  50  x 2,  5 x 20,  2 x 50,  2 x 5 x 10,  2 x 5 x 2 x 5,  etc.  The 
dimension  of  the  array  is  immaterial  since  the  total  array  size  is 
1 <j>4>  elements  in  each  case). 

Assume  that  the  user  wishes  to  first  treat  the  array  as  a one 
dimensional  array.  As  the  first  example,  the  user  might  want  to 
initialize  the  array  with  all  zeros: 

: ARRAY- INIT  100  1 DO  <J>  I NAME  ! LOOP  ; 

To  initialize  the  array  'NAME',  the  user  needs  only  to  execute 
'ARRAY- IN  IT'. 

Assume  that  'NAME'  is  now  a floating  point  array.  The  user  wishes 
to  initialize  each  array  element  to  the  value  .159  E-13.  Since  a 
floating  point  value  can't  directly  be  compiled  into  a definition, 
it  must  first  be  created  as  a constant: 

F .159  E-13  FC0NSTANT  F*C0N 

The  initialization  routine  may  now  be  written  as  follows: 

: ARRAY- INIT  100  1 DO  F*C0N  I NAME  F!  LOOP  ; 

As  a further  example,  assume  that  the  array  is  meant  to  be  a two 
dimensional  array  with  the  scalar  value  of  l<f>  defining  each  dimension. 

The  user  wishes  to  access  the  array  with  the  variable  'IR0W  representing 
the  'row'  value  and  'IC0LUMN'  representing  the  column  value.  Assume 
also  that  the  user  wishes  to  define  the  system  such  that  the  column  elements 
are  filled  first.  Thus,  each  array  element  must  be  defined  by  the  proper 
manipulation  of  ' ICOLUMN'  and  *IR0W*.  One  way  of  visualizing  this  problem 
is  subtracting  one  from  the  'row'  value,  multiply  the  result  by  one,  and 
add  the  required  column  value.  Thus  to  get  the  fifth  element  address 
In  the  first  row,  we  subtract  by  one  the  row  element,  leaving  a result 
of  zero,  this  result  Is  multiplied  by  1 <#>,  leaving  again  zero.  The  value 
'5'  is  added  to  the  result.  Thus  we  are  left  with  the  fifth  element  in 
the  array.  A definition  can  be  written  to  properly  compute  the  array 
element  address  In  the  following  fashion: 

* VARIABLE  ICOLUMN 
4>  VARIABLE  I ROM 

: ARRAY- ADDR  I ROW  0 1-  1$  * ICOLUMN  + 0 ; 

The  definition  'ARRAY-ADDR'  will  compute  the  proper  array  address  when 
executed. 

The  definition  'ARRAY-ADDR'  can  be  used  to  initialize  the  two 
dimensional  array  'NAME',  to  the  value  of  one  by  defining  the  follow- 
ing definitions: 

: INNER  10  1 DO  I ICOLUMN  ! J I ROW  ! 1 ARRAY-ADDR  NAME  ! LOOP  ; 

: FILL  10  1 DO  INNER  LOOP  ; 


The  definition  'FILL',  when  executed,  would  fill  the  array  'NAME'  with 
the  value  of  one  In  each  array  element.  It  should  be  easy  to  see  how 
these  examples  may  be  extended  to  handle  any  particular  situation  at 
hand.  Obviously  the  user  has  great  latitude  on  how  the  array  should 
be  handled. 

ARRAY  ROUTINES 

* - This  routine  multiplies  two  integers  on  the  stack.  It  is  used  to 
compute  the  amount  of  memory  needed  to  store  a multi-dimensional  array. 

DIM  - This  routine  computes  the  amount  of  array  storage  needed  to  define 
an  array. 

DIMENSION  - This  routine  is  used  to  define  an  integer  array. 

FDIMENSION  - This  routine  Is  used  to  define  a floating  point  array. 
DIMTEST  - This  routine  tests  array  for  overflow  condition. 
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A software  system  written  by  Scott  8.  Til  den 
and  M.  Bonner  Denton  at  the  Chemistry  Department, 
University  of  Arizona.  Development  of  this  system 
was  partially  supported  by  the  Office  of  Naval 
Research. 


CONVERS  DOCUMENTATION 
AND  USERS  MANUAL 


INTRODUCTION 


This  manual  will  be  organized  around  several  areas  Including  hardware 
and  software  documentation  of  the  CONVERS  system  as  well  as  a general 
discussion  of  the  use  of  the  CONVERS  software  package.  During  the  course 
of  this  discussion,  many  programming  examples  will  be  given  employing 
software  concepts  discussed.  In  order  to  get  the  fullest  understanding 
of  CONVERS,  it  is  strongly  recommended  that  the  user  actually  sit  at  the 
terminal  and  experiment  using  the  examples  as  programming  guides.  Since 
CONVERS  is  interactive  in  nature,  the  best  way  to  fully  understand  CONVERS 
is  in  programming  with  it. 


£>, 


NOTE:  CONVERS  was  originally  written  for  the  INTE^^ 8080  microcomputer. 


Systems  available  in  the  future  will  run  on  the  HF 
General  minicomputers. 


2100  series  and  Data 


HARDWARE  CONSIDERATIONS 


The  terminal  employed  in  the  authors  8080  system  was  a teletype 
(Model  35)  that  employs  a serial  current  loop.  Interfacing  to  the  CPU 
was  through  a Processor  Technology  Inc.  3P  + S board  that  controls  serial 
to  parallel  conversion  between  the  computer  and  the  teletype.  Due  to  the 
slow  nature  of  teletype  communication  vs.  the  CPU  speed,  some  sort  of  flag 
checking  is  necessary  to  inform  the  CPU  when  data  transfer  has  terminated. 
Therefore,  software  I/O  routines  driving  the  terminal  must  be  written  to 
first  allow  terminal  communication.  If  another  type  of  terminal  (l.e., 
a parallel  terminal)  and/or  another  interfacing  structure  is  to  be  used, 
terminal  I/O  routines  must  be  rewritten  to  fit  that  particular  environment. 


The  CONVERS  software  to  follow  uses  the  following  configuration: 


- The  TTY  is  defined  as  I/O  port  one.  (The  8080  allows 
for  256  ports  to  be  directly  addressed.) 


- Port  zero  is  defined  as  the  flag  (status)  port. 


The  3P  + S uses  a UART  to  control  serial  to  parallel-parallel  to  serial 
conversion.  Status  flags  are  generated  internally  to  indicate  the  progress 
and  status  of  this  conversion.  Two  of  these  flags,  the  Data  Available 
Flag  (DAV)  and  the  Transmitter  Buffer  Empty  (TBE),  are  used  by  the  software 
to  determine  when  data  has  been  received  (DAV)  and  data  has  been  fully 
transmitted  (TBE).  The  flags  from  the  UART  are  'tied'  to  bits  6 and  7 of 
the  flag  (Status)  port  zero: 
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- Bit  6g  Is  the  DAV  flag-active  high. 

- Bit  7g  is  the  TBE  flag-active  high. 

Thus,  the  two  terminal  I/O  routines  used  are  mnemonically  as  follows:  the 
data  to  be  sent  to  the  terminal  is  in  the  'A'  register  when  entering  the 
'OUTTTY'  routine;  data  is  deposited  into  the  'A'  register  upon  termination 
of  the  ' INTTY*  routine: 


HERE 


'OUTTTY' 
PUSH  PSW  : 
IN  STATUS 
ANI  2#  ; 
JZ  HERE  ; 
POP  PSW  ; 
OUT  DATA  : 


Save  contents  of  'A'  register  by  pushing  on  stack. 

; Input  current  contents  of  the  flag  port,  (port  (J) 
Mask  out  all  bits  except  bit  7 which  is  the  TBE  flag. 
Loop  to  'HERE'  if  flag  has  not  been  set. 

Get  data  on  stack. 

Output  character  to  terminal,  (port  1) 


RET  ; Return  to  calling  program. 

The  above  'OUTTTY'  routine  starts  at  address  424„  and  takes  up  12  bytes 
(8  bit  words).  This  routine  can  be  easily  rewritten  to  fit  any  configuration; 
12  bytes  should  be  all  the  memory  space  needed. 


HERE1 


'INTTY' 

IN  STATUS 
ANI  1 4>4>o  I 
JZ  HERE?  ; 
IN  DATA  ; 
ANI  177c 


; Input  current  contents  of  flag  port  (port  4>). 

Mask  out  all  bits  except  bit  6 which  is  the  DAV  flag. 
Loop  to  'HERE1'  until  the  DAV  flag  is  set. 

Input  character  from  port  1. 

Strip  parity  bit. 


CALL  0U?TTY  ; Echo  character 
RET  ; Return  to  calling  program. 

The  above  'INTTY'  routine  starts  at  2377g  and  is  the  last  routine  in  the 
IMCD.  If  this  routine  must  be  rewritten,  it  can  extend  20  to  30  more  bytes 
without  any  modification  to  the  rest  of  the  program.  Note  that  this  routine 
must  strip  the  parity  bit  (the  MSB)  from  the  ASCII  encoded  data  character. 

The  routine  should  also  call  the  'OUTTTY*  routine  to  echo  the  character  that 
was  input  if  the  terminal  is  operating  at  full  duplex.  NOTE:  If  it.  is 
necessary  to  change  only  the  port  addresses  or  the  status  bit  configuration, 
this  can  be  done  in  two  ways: 

1.  Change  the  EQUATE  values  STATU  (status  port),  TTY  (TTY  I/O  port), 

TBE  (TBE  flag)  and  DAV  (DAV  flag)  in  the  source  IMCD  listing  and  reassemble. 

2.  Load  the  IMCD  tape  and  manually  change  the  following  bytes  from 
the  S.R.  or  through  a monitor.  (Assuming  that  the  starting  location  of  the 
IMCD  has  not  been  changed): 


LOCATION 

42e8 

43<f>0 


43fi8 

24<M 


8 


IDENTIFICATION 
Status  port. 

Octal  value  corresponding  to  Bit  location 
of  TBE  flag,  l.e.,  bit  7 corresponds  to 
2<jxj>  octal . 

TTY  I/O  port. 

Status  port  . 
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Octal  value  corresponding  to  bit 
location  of  DAV  flag,  i.e. 
bit  6 corresponds  to  1<J«J>  octal. 

TTY  I/O  port. 

CONFIGURATING  FOR  ANOTHER  STARTING  LOCATION 

The  CONVERS  software  system  as  supplied  is  configured  for  a starting 
location  of  l<M>g.  To  move  the  system  up  in  memory  will  require  some  effort. 
However,  note  that  only  the  IMCD  must  be  recompiled  (reconfigured)  since 
the  rest  of  the  CONVERS  system  is  supplied  as  a SOURCE  tape  which  the  IMCD 
itself  will  compile  and  load  into  memory. 

To  move  the  IMCD  up  in  memory,  a source  tape  of  the  IMCD  listing  (see 
the  end  of  this  section)  should  be  made  reassembled  for  another  memory 
location.  The  IMCD  source  listing  shown  is  compatible  with  an  INTEL'*2 3 
assembler. 
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CONFIGURING  FOR  ANOTHER  MEMORY  SIZE 


The  IMCD  as  supplied  is  configured  for  a 12K  memory  size.  This 
can  be  changed  as  follows: 

1.  Change  the  EQUATE  value  of  POP?  from  61 g to  the  value  corres- 
ponding to  the  8 MSB's  of  the  memory  bound  plus  two.  For  instance,  to 
configure  for  8K,  POP?  would  be  re-equated  with  41  g. 

The  label  value  for  SPA  must  also  be  changed  to  correspond  to 
the  memory  bound  plus  one  (16  bits).  For  instance,  to  configure  for 
8K,  SPA  would  be  redefined  to  equal  20000g.  The  IMCD  source  is  then 
reassembled. 

2.  The  following  locations  can  be  changed  manually  (assuming  the 
IMCD  has  not  been  reconfigured  for  another  address)  through  the  SR  or 

a monitor: 


ADDRESS  CHANGE  TO 

333g  Value  of  POP?  (see  1 above) 

3(j>‘  & 31 4>g  Value  of  SPA  (16  bits)  (see  SPA  in  1 above) 

LOADING  THE  IMCD  INTO  MEMORY 

The  IMCD  tape  supplied  is  in  3-digit  octal  format.  It  should  be 
loaded  starting  at  l#g.  The  following  routine  can  be  used  as  the 
loader: 


NUM 

INTTY 


DAV  EQU  - DAV  FLAG  BIT  VALUE 
STATU  EQU  - STATUS  PORT 
DATA  EQU  - TTY  I/O  PORT 


LXI 

MVI 


D,  ADDR 
L,0 


IN  STATU 
ANI  DAV 


LOAD  STARTING 
ADDRESS  - CONVERS 
STARTING  ADDRESS 
IS  100  OCTAL 
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ONEWD 


JZ  INTTY 
IN  DATA 
OUT  DATA 
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DICTIONARY  ENTRY  DOCUMENTATION  - Initial  Machine  Code  Dictionary  (IMCD) 


The  following  discussion  will  document  the  IMCD  routines  in  both 
description  and  flow  chart  form.  This  discussion  will  treat  each  routine 
as  an  entity;  an  overview  of  the  system  will  come  later. 


UPDICT 


UPDICT  is  an  entry  that  inputs  characters  from  the  terminal  and 
deposits  them  sequentially  into  the  dictionary.  In  the  first  location 
will  be  deposited  the  total  number  of  inputted  characters.  A space 
( 4<P«)  is  the  terminating  character;  i.e.,  characters  will  be  inputted 
until  a space  is  detected.  The  starting  location  for  depositing  charac- 
ters is  found  at  the  variable  location  DP  which  is  the  first  two  bytes 
of  the  IMCD.  Since  DP  always  points  to  the  last  datum  to  be  deposited 
in  the  dictionary,  UPDICT  first  increments  DP  (in  H & L reg.).  UPDICT 
itself  does  not  change  the  value  of  DP.  UPDICT  ignores  all  characters 
with  ASCII  values  less  than  octal  16.  Note  that  UPDICT  first  clears 
the  next  four  locations  in  the  dictionary.  A maximum  of  7 28, Q charac- 
ters may  be  entered. 


DUMMY 

DUMMY  is  a 'dumrny'  routine  which  can  be  anything  the  user  wishes 
it  to  be.  DUMMY  initially  will  call  the  NULL  routine,  however,  by 
changing  the  destination  address  of  this  CALL,  DUMMY  will  execute  any 
routine. 

PUSH 


PUSH  is  a routine  that  in  its  simplest  form  puts  the  contents  of  the 
'A'  register  onto  the  software  stack.  It  also  decrements  the  stack  pointer. 
(The  software  stack  extends  towards  low  memory.)  Initially,  PUSH  also 
checks  for  stack  overflow,  i.e.,  is  the  stack  about  to  over-run  the 
dictionary?  To  perform  this  test  PUSH  first  adds  10g  to  the  current  DP. 


_ , 
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(This  allows  one  to  recover  the  system  by  manually  resetting  either  or 
both  the  stack  pointer  or  the  dictionary  pointer.)  It  then  compares  this 
value  with  the  current  stack  pointer,  if  DP  (+10)  is  now  greater  than  SP 
an  error  message  Is  outputted  (?1).  This  error  routine  also  sets  STATE 
to  zero  and  uncondi ti onal ly  jumps  to  the  EXECUTE  routine.  Under  some 
conditions  stack  overflow  checks  are  not  necessary;  (i.e.,  when  using 
developed  programs  In  a fast  environment)  overflow  checking  can  be 
bypassed  by  Incrementing  the  CODE  POINTER  of  PUSH  by  three.  CODE  POINTER 
Incrementing  is  usually  done  under  software  control.  Only  the  'A',  ' H 1 
and  ' L ' registers  are  effected  by  PUSH. 

POP 

POP  is  an  entry  that  again  In  Its  simplest  form  puts  the  number 
pointed  to  by  the  SP  into  the  A register  and  increments  the  SP. 

Initially  stack  underflow  error  checking  is  done,  this  can  be 
eliminated  under  software  control  by  adding  23g  to  the  code  pointer 
of  the  entry.  Only  the  'A',  'H  & L'  registers °are  effected. 


POP  FLOW  CHART 
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TTYOUT 

TTYOUT  will  output  a block  of  characters  to  the  terminal.  TTYOUT 
should  find  the  number  of  the  characters  on  top  of  the  stack  and  the 
starting  address  of  the  character  block  underneath  the  top  value.  (A 
number  on  the  stack  refers  to  a 16  bit  number;) 


L 


TTYOUT  FLOW  CHART 
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OUTTTY 


OUTTTY  will  output  the  contents  of  the  'A'  register  to  the  terminal. 
Assuming  a serial  UART  data  transfer: 


OUTTTY  FLOW  CHART 


SAVE  ’A' 
REG  ON 
STACK 


STKDE 


STKDE  loads  the  0 & E registers  with  the  contents  on  top  of  the  stack. 
It  does  this  by  calling  POP  twice,  the  first  time  putting  the  'A'  register 
into  the  'O'  register,  the  next  time  the  'A'  register  is  put  into  the  * E * 
register. 


STKDE  FLOW  CHART 
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The  routine  ' replaces  the  number  on  the  stack  with  the  16  bit 
number  contained  at  this  address.  @ FLQW  chart 
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i£ 

The  routine  1 1@'  replaces  the  number  on  the  stack  with  the  8-bit 
value  contained  at  this  address. 


10  FLOW  CHART 
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PUP 

DUP  is  a routine  that  duplicates  the  top  number  on  the  stack.  This 
is  done  by  calling  'STKDE'  and  then  calling  'DE-STK'  twice. 


DUP  FLOW  CHART 


CALL 

STKDE 


DE-STK 


DE-STK  pushes  the  contents  of  the  D & E registers  on  the  stack.  It 
does  this  by  moving  the  ' D ' register  into  the  'A'  register  and  calling 
'PUSH'.  Next  the  ' E ' register  is  pushed  on  the  stack  in  an  analogous 
manner. 

OE-STK  FLOW  CHART 
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STK-BC 


STK-BC  pops  the  top  number  on  the  stack  and  puts  into  the  B & C 
registers. 


STK-BC  FLOW  CHART 
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CALLING 
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BC-STK 


BC-STK  pushes  onto  the  stack  the  contents  of  the  B & C registers. 

This  is  done  in  an  analogous  fashion  to  the  'DE-STK'  routine.  (See  DE-STK) 

SWAP 

SWAP  simply  swaps  the  top  two  nuirtbers  on  the  stack.  This  is  done 
by  calling  'STK-BC'  and  STKDE  which  places  the  top  two  numbers  into  the 
B & C and  D & E registers.  It  then  calls  BC-STK  and  DE-STK  in  that  order 
which  effectively  swaps  the  order  of  the  two  numbers  on  the  stack. 

SWAP  FLOW  CHART 


CALL 
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CALL 

CALL 
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HERE  puts  the  current  DP+1  on  the  stack.  Therefore  ‘HERE1  will 
supply  the  address  of  the  next  available  location  in  the  dictionary 
at  that  time.  ’HERE’  is  used  quite  often  when  compiling  'CODE* 
definitions  for  compiling  destination  addresses  of  JMP's,  etc.  inside 
the  definition.  'HERE'  supplies  DP+1  by  loading  the  contents  of  the 
H & L registers  with  DP,  exchanging  with  the  D & E registers  and  then 
calling  'DE-STK'. 


here  flow  chart 


LOAD  H * L 
W/DP  A INCRE 
XCHG  W/D  & E 


CALL 

DE-STK 


- >/ IE  TURN  TO  \ 
l CALLING  I 
\PR0GRAM  y/ 


HEAD 


HEAD  puts  on  the  stack  the  contents  of  the  LINK  location  (LINK  is 
contained  in  the  third  and  fourth  byte  of  the  IMCD)  and  puts  it  on  the 
stack.  LINK  always  points  to  the  first  character  of  the  last  dictionary 
entry  to  be  completely  compiled.  Note  that  when  compiling  a new  entry 
In  the  dictionary  LINK  does  not  point  to  the  first  character  of  this 
new  entry.  Only  upon  ending  the  entry  will  LINK  subsequently  be  updated. 


HEAD  FLOW  CHART 
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The  definition  '1+'  simply  increments  the  number  on  top  of  the  stack 
by  one.  This  is  done  by  calling  'STKDE',  incrementing  the  D & E registers 
by  one  then  calling  'DE-STK'  to  put  the  incremented  number  back  on  the 
stack.  Some  high  level  definitions  later  on  will  allow  one  to  add 
numbers  on  the  stack,  however,  in  many  cases,  the  number  only  needs  to 
be  incremented  by  one  in  which  case  '!+'  will  do  it  much  faster. 


CALL 
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INCRE 

-/ll  & E RE( 


CALL 

DE-STK 


XfoETURM  TO 
/ CALLING 
v PROGRAM 


OVER  puts  the  third  number  on  the  stack  back  on  the  top  of  the 
stack.  It  does  not  remove  the  third  number.  OVER  accomplishes  this 
function  by  loading  the  current  stack  pointer  contents  into  the  H & L 
registers.  This  is  incremented  by  four.  The  H & L registers  now  point 
the  MSB  of  the  third  number  on  the  stack,  the  value  at  this  address 


is  copied  into  the  'O'  register.  The  H & L registers  are  incremented 
once  more  and  this  value  (the  LSB  of  the  third  number  on  the  stack)  is 
copied  into  the  ' E 1 register.  DE-STK  is  called  to  push  the  copy  of  the 
third  number  under  the  stack  back  on  top  of  the  stack. 
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DROP  removes  the  top  number  from  the  stack, 
calling  'POP'  twice. 


It  does  this  by 


SEARCH 


SEARCH  is  used  to  do  dictionary  searches.  It  will  try  to  match  the 
character  string  at  the  end  of  the  dictionary  (UPDICT  usually  supplies 
this  character  strlnq)  with  the  entries  in  the  dictionary  until  a match 
is  found.  No  match  (entry  doesn't  exist)  is  detected  when  the  LINK  of 
the  current  dictionary  entry  being  examined  is  zero.  UPDICT,  being  the 
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first  entry  in  the  dictionary,  has  its  LINK  set  to  zero,  therefore, 
dictionary  searches  will  terminate  here. 

The  actual  searching  procedure  is  simple,  the  current  value  of 
LINK  is  stored  in  a temporary  location.  'SEARCH'  will  now  compare  the 
character  pointed  to  by  DP+1  against  the  character  pointed  to  by  the 
address  in  this  temporary  location  'TEMP'.  Remember  that  LINK  always 
points  to  the  first  character  of  the  last  completed  entry  in  the 
dictionary  and  that  DP+1  will  contain  the  first  location  of  the  charac- 
ter string  that  ' UPDICT ' supplies.  This  first  character  is  actually 
the  character  count.  If  a match  is  found,  the  character  pointed  to  by 
DP+2  and  TEMP+1  are  compared,  again  if  a match  results  DP+3  and  TEMP+2 
are  compared. 

If  a match  still  results,  DP+4  and  TEMP+3  are  compared.  If  this 
matches,  the  entry  has  been  located.  (Remember  that  uniqueness  is  de- 
termined by  the  # of  characters  and  the  first  three  characters.) 

Upon  finding  a match,  ie,  one  of  the  dictionary  entrys  match  the 
character  string  at  the  end  of  the  dictionary,  TEMP+6  is  pushed  on  the 
stack.  TEMP+6  is  the  address  of  the  CODE  POINTER  of  the  entry  found 
above  (TEMP+4  and  TEMP+5  point  to  the  LINK  of  the  entry).  'SEARCH'  now 
returns  to  the  calling  program. 

If  a match  did  not  result  above  the  word  contained  at  TEMP+4  and 
TEMP+5  is  put  back  into  TEMP.  The  above  procedure  is  repeated,  which 
has  the  effect  of  comparing  the  second  to  the  last  entry  in  the 
dictionary  against  the  character  string  at  the  end  of  the  dictionary. 
(Remember  that  TEMP+4  and  TEMP+5  point  to  the  LINK  of  the  last  entry. 
This  LINK  points  to  the  first  character  of  the  entry  just  below  it  in 
the  dictionary.) 

Before  TEMP  is  updated  as  explained  above,  the  LINK  of  the  entry 
just  examined  is  compared  against  zero.  If  the  LINK  is  zero,  searching 
stops  and  a zero  is  placed  on  the  stack.  This  indicates  that  no  entry 
can  be  found  to  match  the  character  string  at  the  end  of  the  dictionary. 
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CRLF  outputs  a CR  and  LF  to  the  terminal.  It  does  this  by  loading 
into  the  'A'  register  the  respective  ASCII  code  and  calling  the  'OUTTY' 
routine. 


CRLF  FLOW  CHART 
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SPACE 


SPACE  outputs  a space  (octal  40)  to  the  terminal  in  an  analogous 
procedure  as  ' CRLF ' . 

ZERO? 

ZERO?  tests  the  number  on  the  stack  for  a zero.  If  zero,  the 
carry  flag  is  reset,  if  not  zero,  the  carry  flag  is  set. 


ZERO?  FLOW  CHART 


OCTCVRT 

OCTCVRT  will  convert  the  string  of  characters  at  the  end  of  the 
dictionary  into  a binary  number.  "OCTCVRT'  assumes  that  this  character 
string  all  represent  ASCII  octal  numbers.  There  can  be  any  number  of 
characters,  however  only  the  first  six  will  be  converted. 


-16- 


OCTCVRT  FLOW  CHART 
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NUMBER 

NUMBER  checks  the  character  string  at  the  end  of  the  dictionary  to  see 
if  all  the  characters  can  be  interpreted  as  octal  (or  decimal)  numbers.  If 
not,  an  error  message  is  outputted.  If  the  character  string  can  be  inter- 
preted as  a number,  NUMBER  calls  'OCTCVRT'  whereupon  the  character  string 
is  converted  and  put  on  the  stack.  'NUMBER'  then  checks  the  current  value 
of  the  variable  STATE,  if  STATE  is  a zero,  NUMBER  does  nothing  else  and 
returns  to  the  calling  program.  Otherwise,  a call  to  LITERAL  is  compiled 
into  the  dictionary  along  with  the  number  on  the  stack.  STATE  will  not 
equal  zero  when  compiling  colon  (:)  definitions. 
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j 

The  entry  ! puts  the  number  under  the  stack  into  the  address  on  top 
of  the  stack. 


: FLOW  CHART 


The  entry  puts  the  number  on  the  stack  into  the  next  memory 
location(s).  Since  the  8080  works  with  an  8 bit  word,  two  memory  locations 
are  used  to  store  the  number. 

, FLOW  CHART 
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ENTER 

ENTER  is  used  by  all  definitions  that  create  new  definitions  (CODE 
and  ENTER  stores  the  current  DP+1  in  a temporary  location  (TEMPA). 

It  then  stores  the  current  LINK  in  DP+5  and  DP+6  which  effectively  com- 
piles the  LINK  of  the  new  entry.  It  then  puts  DP+9  into  the  location 
addressed  by  DP+7  and  DP+8.  This  effectively  compiles  the  CODE  POINTER 
of  the  entry  to  point  to  the  next  location  after  the  CODE  POINTER.  It 
finally  stores  DP+8  into  the  DP  which  updates  DP  to  the  next  available 
location  in  the  dictionary. 

ENTER  FLOW  CHART 
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After  a new  dictionary  entry  has  been  completed,  the  way  the  entry  is 
officially  made  part  of  the  system  is  to  update  the  variable  LINK  to  point 
to  the  first  location  of  the  new  entry.  This  is  done  by  storing  the  value 
of  TEMPA  (which  ENTRY  has  supplied)  into  the  variable  LINK. 


The  entry  '1,'  stores  the  eight  LSB's  of  the  number  on  the  stack  into 
the  next  available  dictionary  location.  This  is  accomplished  much  like 
except  only  the  'C'  reg  contents  are  put  into  the  dictionary.  (See 


LITERAL 

LITERAL  has  two  parts-one  part  simply  puts  a call  to  the  starting 
address  of  Part  2 into  the  dictionary  and  returns.  PART-2,  upon  execution, 
will  place  the  value  of  the  contents  of  the  next  two  bytes  after  this  call 
onto  the  stack.  Thus,  LITERAL  is  used  to  push  constants  inside  of  entries 
onto  the  stack  upon  execution  of  the  entry. 
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COMPILE 


COMPILE  puts  a call  op  code  into  the  dictionary  along  with  the  destina- 
tion address  found  on  the  stack.  This  is  used  to  compile  calls  to  routines 
inside  of  code  definitions. 
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EXECUTIVE 


EXECUTIVE  is  the  main  executive  routine  for  CONVERS,  it  controls  exe- 
cution and/or  compilation  of  dictionary  entries.  'EXECUTIVE'  is  the  essence 
of  CONVERS  and  will  be  described  in  great  detail  here. 

'EXECUTIVE*  first  puts  its  starting  location  on  the  return  stack 
(hardware  stack).  Upon  the  final  return  of  an  entry  that  is  called  by 
the  EXECUTIVE,  control  will,  therefore,  be  passed  back  to  the  EXECUTIVE. 
EXECUTIVE  then  calls  'UPDICT'  which  will  place  a string  of  characters  at 
the  end  of  the  dictionary.  This  string  of  characters  is,  in  most  cases, 
either  a number  or  a dictionary  entry  name  that  is  to  be  compiled  or  exe- 
cuted. The  entry  'SEARCH'  is  called  which  will  search  the  dictionary  to 
match  the  character  string  that  'UPDICT'  supplies.  Remember  that  'SEARCH' 
either  puts  the  address  of  the  CODE  POINTER  of  the  entry  if  the  entry  was 
found  in  the  dictionary  or  zero  on  the  stack.  This  value  is  duplicated 
and  the  'ZERO?'  routine  is  called.  If  the  number  on  the  stack  is  a zero, 
(carry  not  set)  the  duplicated  number  is  dropped  and  a JUMP  is  made  to  the 
'NUMBER'  routine.  At  the  end  of  'NUMBER',  control  will  be  passed  back  to 
the  EXECUTIVE  when  'NUMBER'  executes  its  final  return. 

If  the  number  on  the  stack  was  non-zero,  i.e.  the  entry  was  found  in 
the  dictionary,  this  number  is  again  duplicated  and  put  into  the  ' H ' and 
' L ' registers.  Thus,  H & L point  to  the  character  count  of  the  entry. 

The  H & L registers  are  decremented  by  six  and  the  value  pointed  to  by 
the  H & L registers  is  loaded  into  the  'A'  register.  The  left-most  bit 
of  this  value  is  the  precedence  bit  which  is  either  zero  or  one  indicating 
that  the  entry  has  low  and  high  precedence,  respectively.  The  precedence 
value  of  this  entry  is  compared  against  the  value  of  STATE;  if  the  precedence 
value  is  equal  to  or  greater  that  STATE,  the  entry  will  get  exectued.  This 
is  done  by  calling  '@'  which  puts  the  contents  of  the  CODE  POINTER  onto 
the  stack  and  the  executive  jumps  to  this  address  which  begins  execution 
of  the  entry.  If  the  precedence  of  the  entry  was  less  than  STATE,  the 
entry  instead  gets  compiled  into  the  dictionary,  I.e.  a call  op-code  is 
placed  into  the  dictionary  along  with  the  CODE  POINTER  value  of  the  entry. 

A return  Is  then  executed  which  puts  control  back  to  the  beginning  of  the 
executive. 


CODE  is  an  entry  which  will  begin  a new  entry  by  compiling  the  new 
entry  name  by  calling  UPDICT  as  well  as  the  LINK  and  CODE  POINTER.  How- 
ever, it  will  first  check  the  dictionary  to  see  if  another  entry  with  that 
particular  name  has  been  previously  defined.  (This  checking  process  only 
takes  place  if  a test  variable  is  zero.  If  It  Is  non-zero,  no  checking 
takes  place;  thus,  to  inhibit  the  checking  process,  one  need  only  to  change 
this  value.)  If  another  entry  was  found  to  have  the  same  name,  the  mes- 
sage 'SURE'  is  typed  on  the  terminal.  'SURE'  prompts  the  user  to  type  a 
character  on  the  terminal;  if  this  character  is  other  than  a carriage- 
return,  it  is  assumed  that  the  user  wants  to  redefine  the  entry  and  calls 
'ENTER'.  If  a carriage-return  is  detected,  the  routine  goes  to  the  begin- 
ning and  calls  'UPDICT'  again  which  allows  the  user  to  rename  the  entry. 

CODE  FLOW  CHART 


The  entry  ':'  begins  a colon  definition  which  first  calls  'CODE'  to 
compile  the  new  definition  name,  LINK  and  CODE  POINTER.  It  then  sets  the 
variable  STATE  to  200ft  which  has  the  effect  of  putting  the  system  into  the 
COMPILE  mode.  B 
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RTN  will  end  a 'CODE'  definition  by  compiling  a return  op-code  (311) 
into  the  entry.  It  also  calls  'LINK'  which  officially  'links'  the  new 
entry  into  the  dictionary. 


RTN  FLOW  CHART 


PUT  311 
INTO  'A' 
REG  AND 
CALL  PUSH 


PUT  0 IN 
'A'  AMD 
CALL  PUSH 


CALL 
% LINK 

4 

/ 

A 

/'RETURN  T(5' 
CALLING 
S PROGRAM  > 


The  semicolon  entry  (;)  ends  a colon  (:)  definition  by  calling  'RTN' 
and  also  resets  STATE  to  zero.  The  execution  of  (;)  is  forced  by  having 
its  precedence  set  to  one.  Resetting  STATE  to  zero  has  the  effect  of 
returning  the  system  to  the  EXECUTE  state. 


The  period  entry  (.)  will  output  the  number  on  the  stack  as  a 6 digit 
octal  number.  It  does  this  by  shifting  the  16  bit  number  left  and  testing 
for  the  carry  bit  to  be  set.  (See  flow  chart  below.) 


ROTATE 
'A'  REG 
LF.F1  IE 
si  1 1 r t 

CARRY  INTO 
BIT  0 
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.. 

| | p LITERAL, 

LITERAL,  is  identical  to  LITERAL  except  that  Part  2 of  LITERAL  puts 
the  address  of  the  data  value  instead  of  the  data  value  itself  on  the  stack. 
(See  LITERAL.) 

Li 

4>4>M>  (NULL) 

I f 1 

NULL  simply  returns  to  the  calling  program.  NULL  is  executed  when 
an  extra  space  is  typed  between  entry  names;  i.e.,  the  character  count  is 
zero  and  all  characters  are  zero. 

* 

INTTY 

INTTY  inputs  a character  from  the  terminal  and  places  it  into  the 
1.  'A'  register. 

INTTY  FLOW  CHART 


( • 


CONDENSED  CONVERS  INITIAL  MACHINE  CODE  DICTIONARY  (1MCD) 


ENTRY  NAME  LOCATION  EXEC  TIME 

UPDICT  114g  Depends  on  Terminal  ALL 

Inputs  characters  from  terminal  and  places  at  end  of  dictionary  until  a space 
is  encountered.  The  number  of  characters  inputted  is  stored  at  the  first 
location.  If  less  than  three  characters  were  input,  zero's  are  stored  in 
the  dictionary  such  that  the  # of  input  characters  and  zero's  stored 
equal  three. 


i; 

0 

D 

D 

1 


INTTY  2366g  Depends  on  Terminal  A 

Inputs  one  character  from  terminal.  (Port  1 - Status  Port  0)  Ecko's  character 
back  to  terminal.  Strips  parity  from  character.  Leaves  character  in  'A' 
register. 


OUTTTY  424g  Depends  on  Terminal  A 

Outputs  one  character  to  terminal.  Char,  to  be  outputted  should  be  in 
'A'  register. 
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ENTRY  NAME  LOCATION  EXEC  TIME  • REGISTERS 

1 

PUSH  273^  2 7nsec  (Fast)  H ,L 

Pushes  contents  of  'A'  req.  on  parameter  stack.  In  fast  mode  stack  overflow 
not  checked.  PUSH  decrements  parameter  pointer  by  one. 

POP  321 8 27psec  (Fast)  H.L.A 

Pops  contents  of  stack  into  'A'  reg.  In  fast  mode  stack  underflow  nojt  checked. 

• POP  increments  parameter  stack  pointer  by  one. 

TTYOUT  406r  Depends  on  Terminal  ALL 

Outputs  block  of  characters  to  terminal.  16  bit  address  under  stack.  # char 
(16  bits)  on  top  of  stack. 

000( NULL ) 241 50  5psec  NONE 

Does  nothing.  (Returns) 

STKDE  450g  81psec  (Fast)  A,D,E  ,H,L 

Puts  16  bit  number  off  stack  into  D and  E registers. 

'd  471 8 1 75usec  (Fast)  A,D,E,H,L 

Replaces  address  on  stack  with  value  found  at  address.  'Valup'  is  a 16  bit 

number  --  i.e.,  the  two  bytes  put  on  stack  at  address  and  address  + one. 

]'-i  516fi  U3.5usec  (Fast)  A,D,E,H,L 

Replaces  address  on  stack  with  0 hit .value  found  at  address. 


DUP  536r  111 .5usoc  (Fast)  A , D , E , H , L 

Duplicates  16  hit  value  on  stack. 


OE-STK  5608  81psec  (Fast) 

Puts  contents  of  D and  E registers  on  stack. 


STK-HC  601r  Blnsec  (Fast) 

Puts  16  bit  value  on  stack  into  8 and  C registers. 

UC-STK  622g  Slpsec  (Fast) 

Puts  contents  of  B and  C registers  on  stack. 


a,h,l 


A ,B  ,C  ,11  ,L 


A,H,L 
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ENTRY  NAME 


LOCATION 


EXEC  TIME 


363usec  (Fast) 


REGISTERS 


Swaps  16  bit  value  under  stack  with  16  bit  value  on  top  of  stack. 


HERE  6708  107psec  (Fast) 

Puts  contents  of  dictionary  pointer  + one  on  stack. 


104.5psec  (Fast) 


A,D,E,H,L 


A ,0  ,E ,H  ,L 


Puts  contents  of  LINK  ( 1 02Q ) on  stack.  The  LINK  always  contains  the  first 
address  of  the  last  definition  in  the  dictionary. 


1 86 . 5visec  (Fast) 


a.o.e.h.l 


Increments  number  on  stack  by  one.  (16  bits) 


OVER  753g  122psec  (Fast)  A ,D,E ,H ,L 

Puts  the  number  at  the  very  bottom  of  the  stack  on  top  of  the  stack. 


Removes  top  number  from  stack. 


SEARCH 


76psec  (Fast) 


Variable 


A ,11  ,L 


This  routine  searches  the  dictionary  for  the  character  string  at  the  end  of  the 
dictionary  (char,  string  deposited  by  UPDICT).  If  a match  is  found  with  one  of 
the  entries  in  the  diet.,  the  address  of  the  code  pointer  of  that  entry  is  put 
on  the  stack.  If  no  match  is  found,  a zero  is  put  on  the  stack. 


CRLF  1147g  Depends  on  Terminal 

Outputs  a carriage-return  and  line  feed. 


SPACE 

Outputs  a space. 


ZERO? 


Depends  on  Terminal 


1 1 3psec (Fas t)/133usec( Fast)  A,B,C,H,L 


This  routine  tests  top  number  on  stack  for  zero.  If  number  is  a zero,  carry  is 
reset.  If  number  is  non-zero,  carry  is  set. 


OCTCVRT 


Variable 


Converts  an  ASCII  character  string  at  end  of  dictionary  (deposited  by  UPDICT) 
into  a 16  bit  binary  number.  This  number  is  then  pushed  on  the  stack. 
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ENTRY  NAME 

LOCATION 

EXLC  TIME 

REGISTERS 

NUMBER 

13360 

Variable 

ALL 

NUMBER  checks  the  char,  string  at  the  end  of  the  dictionary  to  determine  if  all 
characters  can  he  interpreted  as  octal  numbers.  If  not,  an  error  message  is 
output.  (?  2)  If  so,  NUMBER  calls  OCTCVRT.  If  the  state  is  one  (COMPILE) 

'LITERAL'  are  executed.  Thus,  the  colon  definition  when  executed  will  place 
the  converted  num.  on  the  stack. 


I 1453g  1 05. 5|isec  ALL 

This  routine  deposits  the  number  under  the  stack  at  the  address  on  top  of  the 
stack. 


. 14768  119usec  A , B , C , H , L 

Deposits  the  16  bit  number  on  the  stack  into  the  dictionary.  The  Dictionary 
pointer  is  incremented  by  two. 


ENTER  1534^  89psec  A,D,E,H,L 

Begins  a new  entry  by  depositing  the  LINK  and  code  pointer  at  the  end  of  the 
dictionary.  The  address  of  the  first  character  of  the  new  entry  is  stored  at  a 
temporary  LINK  location.  (To  be  used  by  LINK  below.) 


LINK  16130  21  nsec  H,L 

Stores  the  number  at  the  temp  link  (which  ENTER  supplies)  in  the  LINK  location. 
(102(j)  This  effectively  links  and  adds  the  new  entry  into  the  dictionary. 

1,  1632^  H6.5psec  A,B,C,H,L 

Deposits  the  L SR  8 bits  from  the  stack  into  the  dictionary.  Increments  the 
Diet,  pointer  by  one. 


LITERAL 


1 656r 


300.5|isec  when  executed/  A,D,E,II,L 
443. Bpsec  (COMPILE) 


When  LITERAL  is  executed,  it  puts  a CALL  to  the  execution  address  of  LITERAL. 
Upon  execution  of  the  CALL,  the  16  bit  data  found  after  the  CALL  (in  the  entry 
Calling  Literal)  is  put  on  the  stack. 


COMPILE  17168  335.5psec 

Puts  a call  opcode  as  well  as  the  16  bit  number  on  the  stack 
This  entry  is  used  to  compile  a call  to  another  routine  when 
def ini tion. 


A ,U  ,L 

into  the  dictionary, 
compiling  a CODE 


• ■ 
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ENTRY  NAME  LOCATION  EXEC  TIME  _ REGISTERS 

EXECUTE  1 752g  UP  t0  2usec  depending  ALL 

on  search  time 

EXECUTE  calls  UPDICT  and  SEARCH  --  if  a zero  left  on  the  stack  NUMBER  is  called. 
If  not-zero  (routine  searched  for  exists  in  the  diet.)  a jump  to  this  routine 
is  made  after  putting  the  EXEC  starting  address  on  the  return  stack.  If  the 
precedence  bits  of  the  entry  are  less  than  STATE,  a Call  to  this  entry  is 
compiled  into  the  dictionary. 

CODE  Z066g  126psec  (Fast)  ALL 

Calls  UPDICT  and  ENTER  to  begin  a new  entry  at  the  end  of  the  dictionary. 


: 2165g  149.5psec  (Fast)  ALL 

CALLS  CODE  to  begin  a new  entry,  also  stores  a three  in  STATE  to  put  system 
in  the  compile  mode. 


RTN  2206g  237 . 5psec  (Fast)  ALL 

Puts  a RET  opcode  (311)  into  the  dictionary  and  calls  LINK  to  link  the  new 
definition  into  the  dictionary. 


; 2241a  ALL 

Calls  RTN  to  end  the  definition,  also  changes  the  state  variable  to  zero  to 
return  system  to  execute  mode. 


2263  A ,C ,D,E ,H,L 

Pops  a number  of  the  stack,  converts  and  outputs  a 6 digit  octal  number  on  the 
terminal . 


LITERAL,  2332  A,D,E,H,L 

Same  as  LITERAL  except  now  the  address  of  the  data  location  is  pushed  on  the 
stack  instead  of  the  data  itself. 

STANDARD  CONVERS  HIGH-LEVEL  DICTIONARY 

The  'Standard  High-Level'  CONVERS  software  includes  most  of  the  'higher 
level'  types  of  constructs  associated  with  other  higher  level  languages 
(such  as  BASIC  and  FORTRAN).  Included  are  DO-LOOP's,  IF-ELSE-THEN  constructs, 
a multitude  of  number  testing  routines,  and  some  unique  routines  that  most 
people  will  find  very  unfamiliar.  It  should  be  pointed  out  now  that  the 
user  is  certainly  not  limited  to  the  CONVERS  system  described  here;  a user 
could  create  new  or  different  routines  and  add  them  to  his/her  system.  In 
fact,  one  of  the  primary  advantages  of  CONVERS  is  the  user's  ability  to  add 
(or  change)  any  aspect  of  the  system.  However,  a solid  'high-level'  system 
should  be  provided  for  those  users  who  do  not  wish  to  develop  their  own 
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custom- tailored  CONVERS  software  system.  With  this  in  mind,  a discussion 
will  follow  on  the  routines  that  are  provided  in  the  CONVERS  'Standard 
High-Level'  dictionary. 

CONSTANT 

The  first  routine  to  be  defined  is  'CONSTANT'  which  allows  one  to 
define  a constant  with  a given  name.  'CONSTANT'  has  been  defined  as 
fol 1 ows : 

: CONSTANT  CODE  LITERAL  , RTN  ; 

The  colon  (:)  begins  execution  by  calling  'UPDICT'  and  'ENTER'.  The  user 
would  then  type  a character  string  that  names  the  new  entry,  in  the  above 
case  'CONSTANT'  is  the  entry  name.  Following  the  name  of  the  entry,  are 
the  entry  names  that  are  to  be  conpiled  into  the  new  entry;  the  semicolon 
(;)  ends  the  entry.  As  stated  initially,  'CONSTANT'  allows  one  to  define 
constants  with  any  given  name.  For  example,  the  user  might  define  'ZERO' 
initialized  with  the  value  zero: 


0 CONSTANT  ZERO 


Now,  whenever  ZERO  is  executed,  a ZERO  will  be  placed  on  the  stack. 

'CONSTANT'  executes  this  function  by  first  calling  'CODE'  which  will 
allow  the  user  to  input  a character  string  that  names  the  constant,  in  this 
case,  the  name  is  'ZERO'.  'CONSTANT'  will  next  call  'LITERAL*  which,  when 
executed,  compiles  the  execution  address  of  'LITERAL'  into  'ZERO'.  'CONSTANT' 
now  calls  the  comma  (,)  entry  which  deposits  the  number  on  the  stack  into 
the  next  two  bytes  of  'ZERO'.  In  this  case,  the  number  'zero'  is  found  on 
the  stack.  'CONSTANT'  finally  calls  'RTN'  which  places  a return  op-code 
into  'ZERO'  and  properly  links  'ZERO'  into  the  dictionary. 

VARIABLE 


'VARIABLE'  allows  one  to  define  variables  initialized  to  any  value; 
the  user  can,  likewise,  name  the  variable  in  an  analogous  fashion  to  the 
way  'CONSTANT'  allows  the  user  to  name  a number.  For  example,  one  might 
define  the  following  variable  as  follows: 

1#  VARIABLE  TIME 

In  the  above  example,  'TIME'  is  initialized  to  octal  (or  decimal)  l<f><j>.  How' 
ever,  whenever  'TIME'  is  executed,  the  address  where  the  variable  is  stored 
is  placed  on  the  stack  and  not  the  data  value  itself.  The  reason  for  this 
will  become  obvious  later  on. 


XCHG 

The  entry,  'XCHG',  when  executed,  will  exchange  the  D & E and  H & L 
register  pairs.  'XCHG'  is  needed  since  there  is  no  direct  way  to  load  the 
H & L registers  with  any  of  the  initial  machine-code  entries. 


i 


i 


% 
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The  apostrophe  (')  entry,  when  executed,  searches  the  dictionary  for 
the  entry  name  entered  after  the  apostrophe.  For  example: 

' STKDE 

The  apostrophe  will  search  the  dictionary  for  the  entry  'STKDE'  and  push 
on  the  stack  the  address  contained  at  the  code  pointer  of  'STKDE'.  Thus, 
the  apostrophe  is  a way  of  locating  addresses  of  any  dictionary  entry. 

JZOP 

The  entry  'JZOP'  will,  when  executed,  deposit  a JZ  op-code  into  the 
dictionary.  (DP  is  incremented  by  one.)  Thus,  'JZOP'  is  a sort  of  assembler 
mnenomic. 

JMPOP 

'JMPOP*  puts  a JMP  op-code  into  the  dictionary  when  executed. 

JNZOP 

' JNZOP ' puts  a JNZ  op-code  into  the  dictionary  when  executed. 

I 

The  entry  '('  allows  one  to  insert  comments  inside  of  definitions  as 
they  are  being  compiled.  All  characters  entered  after  the  '('  are  ignored 
by  the  system,  however,  they  are  echoed  back  to  the  terminal.  The  right 
parenthesis  ')'  ends  the  comment  and  returns  the  system  back  to  the  inter- 
preter state.  For  example: 

CODE  ZAP  (ZAP  REMOVES  NUMBER)  ' DROP  COMPILE  RTN 

In  this  example,  the  text  'ZAP  REMOVES  NUMBER'  is  totally  ignored  by  the 
system  except  to  be  echoed  on  the  terminal. 

RZ, 

The  entry  'RZ,'  puts  an  RZ  op-code  into  the  dictionary. 

STATE 


'STATE'  puts  the  address  of  the  location  where  the  variable  'STATE' 
is  stored. 


The  quote  entry  (")  functions  identically  to  the  parenthesis  entry 
'('  when  the  system  is  In  the  execute  state  (STATE  has  the  value  zero). 
With  the  system  in  the  compile  state  (STATE  * one)  the  characters  input 
after  the  quote  will  be  deposited  Into  the  dictionary.  Another  quote  (") 
terminates  the  execution  of  this  entry. 


I 
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DAD 

The  entry  'DAD',  when  executed,  exchanges  the  D 4 E registers  with  the 
H & L registers  and  does  a doublo  byte  add  with  the  B & C registers, 

+_ 

The  entry  '+'  adds  two  numbers  on  the  stack  and  replaces  these  num- 
bers with  the  sum. 

U 

The  entry  '1-'  decrements  the  top  number  on  the  stack  by  one.  Later 
on,  a subtract  defintion  will  be  defined;  however,  in  many  cases,  the  number 
need  only  to  be  decremented  by  one.  The  entry  '1-'  does  this  in  a much 
faster  fashion  than  a subtraction  of  a number  by  one. 

COMPLEMENT 


The  'COMPLEMENT'  entry  complements  the  top  number  on  the  stack. 

MINUS 


The  entry  'MINUS'  does  a two's  complement  of  the  number  on  the  stack, 
i.e.  it  complements  and  increments  the  number  by  one. 

0PUSH 

The  entry  ' 0PUSH ' pushes  an  8-bit  zero  on  the  stack.  Since  all  stack 
operators  require  a 16  bit  number  on  the  stack,  ' 0PUSH ' is  used  extensively 
when  inputting  values  from  I/O  devices  which  interface  through  an  8-bit  port. 


The  entry  '-'  subtracts  the  top  number  on  the  stack  from  the  bottom 
number  and  replaces  the  two  numbers  with  the  difference. 

0< 

The  entry  '0<'  tests  the  number  on  the  stack  to  determine  if  it  is 
less  than  zero,  i.e.  is  the  MSB  of  the  number  a one.  If  the  number  is 
negative,  a 'one'  is  put  on  the  stack;  otherwise,  a zero  is  put  on  the 
stack.  The  entry  ' 0< ' replaces  the  original  number  on  the  stack  as  do 
most  stack  operators. 

PRECEDENCE 

The  entry  'PRECEDENCE'  will  change  the  precedence  value  of  any  entry 
to  three.  This  has  the  effect  of  forcing  execution  of  the  entry  even  when 
the  system  is  in  the  compile  state.  As  an  example: 

PRECEDENCE  ' 


In  the  above  example.  'PRECEDENCE'  is  used  to  change  the  precedence 
value  of  the  apostrophe  (r)  entry. 
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STK-DICT 


'STK-DICT'  is  an  imperative  definition  (precedence  is  one)  that  will 
compile  a call  to  'LITERAL'  as  well  as  deposit  the  number  on  the  stack 
into  any  type  of  defintion  (COLON  or  CODE).  Other  than  through  'STK-DICT', 
there  is  no  way  of  compiling  a number  on  the  stack  into  a colon  definition 
during  the  compilation  of  the  new  entry. 

IF,  ELSE  and  THEN 

The  entries  'IF',  'ELSE'  and  'THEN'  taken  together  are  the  backbone 
of  the  conditional  execution  construct  of  CONVERS.  These  entries  work  as 
follows: 


: TEST  IF  BELL  ELSE  CRLF  THEN  ; 

In  the  'TEST'  example  above,  if  the  number  on  the  stack  is  other  than  zero, 
the  routines  between  the  'IF'  and  'ELSE'  entries  will  be  executed.  (In  the 
above  example,  the  terminal  bell  would  ring.)  If  the  number  on  the  stack 
is  a zero,  the  entries  between  the  'ELSE'  and  'THEN'  would  be  executed. 
Finally,  any  entries  after  the  'THEN'  are  executed.  The  'ELSE'  entry  is 
not  needed  to  properly  compile  the  IF-THEN  construct. 


The  entry  '='  compares  the  two  numbers  on  top  of  the  stack  for  equality; 
if  they  are  equal,  a one  is  put  on  the  stack,  otherwise,  a zero.  The  two 
original  numbers  are  removed. 


The  entry  '>'  tests  for  a greater  than  or  equal  condition,  i.e.  is 
the  bottom  number  on  the  stack  greater  than  or  equal  to  the  top  number. 
If  true,  a one  is  put  back  on  the  stack,  otherwise,  a zero. 


The  entry  '<’  tests  for  a less  than  or  equal  condition,  i.e.  is  the 
bottom  number  less  than  or  equal  to  the  top  number.  If  true,  a one  is 
put  back  on  the  stack,  otherwise  a zero. 

BELL 

'BELL'  will  ring  the  terminal  bell. 

DO  & LOOP 

The  'DO'  and  'LOOP'  entries  (conditional  looping)  make  up  the  most 
useful  construct  of  any  software  system.  The  respective  CONVERS  structure, 
however,  works  somewhat  differently  than  the  analogous  FORTRAN  or  BASIC  DO-LOOP 
structure.  An  example  of  the  way  this  structure  works  in  CONVERS  will  follow: 


: SOUND  5 1 DO  BELL  LOOP  ; 
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In  the  above  example,  'SOUND'  has  been  defined  to  ring  the  terminal  bell 
5 times.  Note  that  the  routines  that  are  to  be  iteratively  executed  are 
entered  between  the  'DO'  and  'LOOP'  entries  as  the  definition  is  compiled. 
'SOUND'  in  the  above  example  supplies  the  upper  and  lower  indices  (the 
numbers  5 & 1 respectively)  inside  the  definition  with  the  lower  index 

always  being  the  top  number  on  the  stack.  To  make  'SOUND'  more  general, 

it  should  be  defined  as  follows: 

: SOUND  DO  BELL  LOOP  ; 

In  this  example,  the  upper  and  lower  indices  must  be  put  on  the  stack 
prior  to  the  execution  of  'SOUND'.  Some  other  definition  might  supply 
these  indices  or  the  user  may  as  well: 

10  1 SOUND 

After  the  user  typed  the  above,  ten  (octal  or  decimal)  bells  will  sound  on 
the  terminal. 


DADSP 


This  entry  adds  the  stack  pointer  to  the  H & L registers  when  executed. 
By  zeroing  the  H & L registers  beforehand,  DADSP  will  allow  one  to  copy  the 
current  SP  value  into  the  H & L registers.  Given  the  8080  instruction  set, 
this  is  the  only  way  to  access  the  stack  pointer. 

JC 

'IC  puts  the  current  value  of  the  stack  pointer  (hardware)  on  the 
software  (parameter)  stack. 


I,  J & K 

'I',  'J*  and  'K',  respectively,  put  the  current  value  of  the  inner,  next, 
and  outer  D0-L00P  lower  indices  on  the  stack.  This  allows  for  nesting  of 
DO-LOOP's  three  levels  deep  and  still  being  able  to  access  the  lower  index 
of  each  loop.  By  copying  the  compilation  of  these  routines,  entries  may 
be  written  to  allow  access  of  the  lower  index  at  any  level. 

AND 

'AND'  will  logically  AND  two  numbers  on  the  stack  replacing  the  two 
numbers  with  the  result. 


DP 

'DP'  will  push  on  the  stack  the  address  of  the  dictionary  pointer. 

.CODE 

The  entry  '.CODE'  works  identically  to  'CODE'  except  that  the  code 
pointer  will  be  incremented  by  the  number  found  on  top  of  the  stack.  This 
allows  local  constants  to  be  Inserted  at  the  start  of  the  defintion  without 
interfering  with  the  execution  of  the  rest  of  the  defintion.  (Remember 
that  a defintion  will  be  executed  or  compiled  at  the  address  contained  in 
the  code  pointer  of  the  defintion.) 
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REMEMBER 

The  entry  'REMEMBER'  allows  the  user  to  define  an  entry  (using  REMEMBER) 
such  that  at  a later  time  the  user  can  'erase'  everything  in  the  dictionary 
after  (and  including  the  entry)  by  simply  typing  this  entry  name  on  the 
terminal.  This  also  allows  'application  dictionaries'  to  be  swapped  in 
and  out  from  mass  storage  by  'erasing'  this  dictionary  after  terminating 
its  function. 

2*_ 

The  entry  '2*'  multiplies  the  number  on  the  stack  by  two.  (It  does 
a one  bit  left  shift.) 

IL 

The  entry  '2/'  divides  the  number  on  the  stack  by  two  by  performing  a 
one  bit  right  shift. 


SWITCH 


The  entry  'SWITCH'  switches  the  high  and  low  8 bits  of  the  number  on 
the  stack. 

SP 

The  entry  'SP'  puts  the  current  value  of  the  software  stack  pointer 
on  the  stack.  The  SP  value  is  'read'  before  it  is  put  on  the  stack. 


UNDER 


'UNDER'  adds  a number  on  the  stack  to  the  current  SP  and  fetches  the 
number  under  the  stack  pointed  to  by  the  above  sum.  This  number  is  then 
pushed  on  top  of  the  stack.  For  example,  3 UNDER  will  copy  and  push  the 
third  number  under  the  stack  on  top  of  the  stack. 

MAX 

'MAX'  replaces  two  numbers  on  the  stack  with  the  maximum  of  the  two 
numbers. 

MIN 

'MIN'  replaces  two  numbers  on  the  stack  with  the  minimum  of  two  numbers. 


1! 


The  entry  '1!'  deposits  the  8 LSB's  of  the  number  under  the  stack  at 
the  address  on  top  of  the  stack. 


1W0RD 


The  entry  '1W0RD'  will  copy  one  byte  from  the  address  underneath  the 
stack  to  the  location  on  top  of  the  stack.  '1W0RD'  increments  these  two 
addresses  and  leaves  them  on  the  stack. 
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WORDS 

'WORDS'  copies  a block  of  memory  from  one  location  to  another.  The 
number  of  bytes  to  be  transferred  should  be  on  top  of  the  stack,  the  des 
tination  address  underneath  that  and  the  source  address  underneath  the 
destination  address. 


CVRT 

' CVRT ' is  a specialized  routine  that  is  used  for  decimal  conversion. 

.10 

The  entry  '.10'  converts  and  outputs  the  top  number  on  the  stack  in 
decimal . 

IgCVRT 

The  entry  'IgCVRT'  will  convert  the  character  string  at  the  end  of 
the  dictionary  (that  'UPDICT'  supplies)  into  a binary  nunfcer  and  pushes 
it  onto  the  stack.  ' 10CVRT'  assumes  that  the  character  string  represents 
a decimal  number. 


DECIMAL 


The  'DECIMAL*  entry  sets  the  number  conversion  system  to  the  decimal 
mode,  i.e.  all  entries  will  be  input  and  output  in  decimal. 

OCTAL 


'OCTAL'  returns  the  system  to  the  octal  mode,  i.e.  all  number  conversions 
will  be  in  octal. 


DATAOUT 

'DATAOUT'  will  output  the  contents  of  the  'A'  reg.  to  a specified  port. 
The  entry  'PORTOUT?'  will  supply  the  port  address. 

PORTOUT? 

'PORTOUT?'  will  take  the  number  on  top  of  the  stack  and  compile  it 
into  the  'DATAOUT'  routine  such  that  'DATAOUT'  will  output  the  'A'  register 
contents  to  the  correct  port. 


OUTDEVICE 

'OUTDEVICE'  will  output  the  8 LSB's  of  the  number  under  the  stack  to 
the  port  addressed  by  the  8 LSB's  of  the  number  on  top  of  the  stack. 

INDATA 


'INDATA'  will  input  to  the  'A'  register  the  contents  of  a specified  input 
port.  The  'PORTIN?'  routine  will  supply  the  port  address. 


PORTIN? 

' PORTIN? ' will  take  the  number  on  the  stack  and  compile  it  into  the 
'INDATA'  routine  such  that  'INDATA'  will  input  data  from  the  correct  port. 

INDEVICE 

1 INDEVICE ' will  input  and  push  onto  the  stack  the  8 bits  from  the 
port  address  found  on  the  stack. 

SPECIAL 

'SPECIAL'  is  a special  variable  location  that  is  used  in  the  ' BEGIN-HERE ' 
routine  below. 

BEGIN-HERE 

'BEGIN-HERE'  is  an  imperative  definition  (it  is  always  executed  indepen- 
dent of  'STATE')  that  stores  DP  + 1 into  the  variable  location  'SPECIAL'. 
'BEGIN-HERE'  is  used  like  'HERE'  ('HERE'  is  used  in  a similiar  fashion  for 
compiling  'CODE'  definitions);  it  stores  the  current  address  of  memory 
during  the  compilation  of  a colon  (:)  definition.  This  address  would  be 
typically  used  later  in  the  definition  to  'JMP'  back  to  the  earlier  address 
upon  some  condition. 

BEGIN 

'BEGIN'  compiles  a 'JMP*  to  the  address  contained  at  the  variable 
'SPECIAL'  into  the  dictionary.  It  is  used  in  conjunction  with  'BEGIN-HERE' 
to  allow  backward  referencing  in  a colon  (:)  defintion.  'BEGIN'  is  an  im- 
perative defintion. 


'END'  is  another  imperative  definition  that  will  compile  a return  op-code 
(311g)  into  the  dictionary.  This  allows  for  unconditional  termination  of  an 
entry.  'END'  is  usually  used  in  the  context  of  the  ' I F-ELSE-THEN ' construct 
to  conditional 1y  terminate  an  entry* 

THE  INITIAL  MACHINE  CODE  DICTIONARY  (IMCD) 

(The  IMCD  object  tape  supplied  is  assembled  at  a starting  address  of  1 00g.) 


LABEL 

OPCODE 

OPERAND 

COMMENTS 

DP 

DW 

KEND+  243] o 

DICT.  POINTER 

LINK 

DW 

ELINK 

LINK 

LINK1 

OB 

6 

1 CHAR 

DB 

'U' 

NAME  OF  UPDICT 

OB 

' P* 

ROUTINE 

DB 

' U' 

DW 

9 

LINK 

DW 

$ + 2 

CODE  POINTER 

* V W 
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LABEL 

OPCODE 

OPERAND 

UPDCT 

XRA 

A 

LHLD 

DP 

INX 

H 

MOV 

M,A 

INX 

H 

MOV 

M,A 

INX 

H 

MOV 

M,A 

INX 

H 

MOV 

M,A 

DCX 

H 

DCX 

H 

NOP 

MOV 

D.A 

HEREA 

CALL 

INTTY 

CPI 

168 

JC 

HEREA 

CPI 

408 

JZ 

STOP 

INR 

D 

MOV 

M,A 

INX 

H 

JMP 

HEREA 

STOP 

LHLD 

DP 

INX 

H 

MOV 

M,D 

RET 

TEST 

PUSH 

PSW 

PUSH 

D 

LHLD 

DP 

LXI 

D,  1P8 

DAD 

D 

MOV 

A,L 

CMA 

MOV 

E.A 

L_ 


l 

COMMENTS 

THIS  ROUTINE 
WILL  INPUT  CHAR 
STRING  & PUT  IN 
OICT  UNTIL  SPACE 
DETECTED.  FIRST 
LOCAT  CONTAINS  df 
CHAR  INPU1TLD 
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0 


i • LABEL 

OPCODE 

OPERAND 

MOV 

A,H 

Li 

CMA 

MOV 

D,A 

INX 

D 

LHLO 

SP 

DAD 

D 

JNC 

ERR1 

POP 

D 

POP 

PSU 

RET 

ERR1 

MVI 

B , 63g 

ERR 

MVI 

CO 

C 

CALL 

OUTTY 

MVI 

A,  408 

CALL 

OUTTY 

MOV 

A ,B 

CALL 

OUTTY 

XRA 

A 

STA 

STATE 

JMP 

EXEC 

L.INK2 

DB 

5 

DB 

V 

n 

DB 

’ U* 

DB 

'M' 

n 

DU 

LINK1 

u 

1 ^ 

DU 

$ + 2 

DUMMY 

CALL 

NULL 

0 

RET 

NOP 

LINK3 

DB 

4 

LI 

DB 

• P ' 

COMMENTS 
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LABEL 

OPCODE 

OPERAND 

COMMENTS 

PUSH 

CALL 

TEST 

LHLD 

SP 

OCX 

H 

MOV 

M,A 

SHLD 

SP 

RET 

SP 

DU 

SPA 

LINK4 

DB 

3 

OB 

* P* 

OB 

'O' 

DB 

' P • 

DU 

LINK3 

DM 

$ + 2 

POP 

LHLD 

SP 

DAD 

H 

MOV 

A ,H 

STC 

CMC 

RAR 

INR 

A 

CPI 

POP? 

JC 

OKAY 

MV  I 

B,  61  y 

JMP 

ERR 

OKAY 

LHLD 

SP 

MOV 

A,M 

INX 

H 

SHLD 

SP 

RET 

LINKS 

DB 

6 

DB 

•T' 

DB 

•T' 

DB 

'Y* 

DU 

LINK4 

DU 

$ + 2 

TTYOT 

CALL 

STKDE 

CALL 

STKBC 

INR 

D 
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I 

" 

• « 

IU 


Li 


It 


0 

G 

1 


LABEL 

OPCODE 

OPERA! 

AGAIN 

LDAX 

B 

CALL 

OUTTY 

INX 

B 

OCR 

E 

JNZ 

AGAIN 

DCR 

D 

JNZ 

AGAIN 

RET 

NOP 

NOP 

LINK6 

DB 

6 

DB 

'O' 

DB 

• U* 

DB 

' T* 

DW 

L INK5 

DW 

$ + 2 

OUTTY 

PUSH 

PSW 

HEREZ 

IN 

STATU 

AN  I 

TBE 

JZ 

HEREZ 

POP 

PSW 

OUT 

TTY 

RET 

LINK7 

DB 

5 

DB 

'S' 

DB 

* T* 

DB 

1 K' 

DW 

LINK6 

DW 

$ + 2 

STKDE 

CALL 

POP 

MOV 

D,A 

COMMENTS 
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LABEL 


LINK8 


LINK9 


016 


LNK10 


OPCODE  OPERAND 


CALL 

POP 

MOV 

E.A 

RET 

DB 

1 

DB 

'0' 

DB 

0 

DB 

0 

DW 

LINK7 

DW 

$ + 2 

CALL 

STKDE 

LDAX 

D 

CALL 

PUSH 

INX 

D 

LDAX 

D 

CALL 

PUSH 

RET 

DB 

2 

DB 

•r 

DB 

'0' 

DB 

0 

DW 

LINK8 

DW 

$ + 2 

CALL 

STKDE 

LDAX 

D 

CALL 

PUSH 

RET 

DB 

3 

DB 

' D ' 

DB 

'U' 

DB 

' P' 

y 


COMMENTS 


0 

0 

0 

n 
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I 


LABEL 


DUP 


LNK11 


DESTK 


LNK12 


STKBC 


LNK13 


OPCODE  OPERAND  COMMENTS 


DW 

LINK9 

DU 

$ + 2 

CALL 

STKDE 

CALL 

DESTK 

CALL 

DESTK 

RET 

DB 

6 

DB 

'D1 

DB 

' E ' 

DB 

1 1 

DU 

LNK10 

DU 

$ + 2 

MOV 

A,E 

CALL 

PUSH 

MOV 

A,D 

CALL 

PUSH 

RET 

DB 

6 

DB 

'S’ 

DB 

T 

DB 

' K' 

DU 

LNK11 

DU 

$ + 2 

CALL 

POP 

MOV 

B,A 

CALL 

POP 

MOV 

C,A 

RET 

DB 

6 
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LABEL  OPCODE  OPERAND 

DB  * B ' 

DB  'C' 

DB 

DW  LNK12 

DW  $ + 2 

BCSTK  MOV  A,C 

CALL  PUSH 

MOV  A,B 

CALL  PUSH 

RET 

LNK14  DB  4 

DB  'S' 

03  ’W 

DB  'A' 

DW  LNK1 3 

DW  $ + 2 

SWAP  CALL  STKBC 

CALL  STKDE 

CALL  BCSTK 

CALL  DESTK 

RET 

LNK15  DB  4 

DB  ' H 1 

DB  ' E * 

DB  * R* 

DW  LNK14 

DW  $ + 2 

HERE  LHLD  DP 

INX  H 

XCHG 

CALL  DESTK 

RET 


- - 


COMMENTS 


f] 

f] 

n 


45 


LABEL 


OPCODE 


OPERAND 


LNK16 

DB 

4 

DB 

4H' 

DB 

'E* 

DB 

'A' 

DM 

LNK15 

DM 

$ + 2 

HEAD 

LHLD 

LINK 

XCHG 

CALL 

DESTK 

RET 

NOP 

NOP 

LNK17 

DB 

2 

DB 

T 

OB 

DB 

0 

DM 

LNK16 

DM 

$ + 2 

D1  + 

CALL 

STKDE 

INX 

D 

CALL 

DESTK 

RET 

LNK18 

DB 

4 

DB 

'O' 

DB 

•v* 

DB 

*E  * 

DM 

LNK17 

DM 

$ + 2 

OVER 

LHLD 

SP 

INX 

H 

INX 

H 

INX 

H 

COMMENTS 
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LABEL 


I 

LNK19 


DROP 


LNK20 


SERCH 


l 


\ 


OPCODE 

INX 

MOV 

INX 

MOV 

CALL 

RET 

NOP 

NOP 

DB 

DB 

DB 

DB 

DW 

DW 

CALL 

CALL 

RET 

DB 

DB 

DB 

DB 

DW 

DW 

LHLD 

SHLD 

XCHG 

LHLD 

INX 

MV  I 


OPERAND 

H 

D. M 
H 

E, M 
DESTK 


4 

• O' 

' R' 

‘0* 

LNK18 
$ + 2 
POP 
POP 

6 

'S' 

'E' 

’A' 

LNK19 
$ + 2 
LINK 
TEMP 

DP 

H 

C,48 


COMMENTS 


U 

ij 

d 


HE  RE  5 
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LABEL 

OPCOCE 

OPERAND 

ME  RE  1 

LDAX 

D 

ANI 

177 

CMP 

M 

JNZ 

NEXT 

INX 

H 

INX 

D 

DCR 

C 

JNZ 

HERE1 

INX 

D 

INX 

D 

NOP 

HERE2 

CALL 

DESTK 

RET 

NEXT 

LHLD 

TEMP 

XCHG 

INX 

D 

INX 

D 

INX 

D 

INX 

D 

LDAX 

D 

SUI 

9 

MOV 

L,A 

INX 

D 

LDAX 

D 

JZ 

AGN 

HERE6 

NOP 

MOV 

H,A 

SHLD 

TEMP 

XCHG 

LHLD 

DP 

INX 

H 

JMP 

HERE5 

0 

0 


COMMENTS 


LABEL 

OPCODE 

OPERAND 

COMMENTS 

AGN 

SUI 

0 

JNZ 

HERE6 

MOV 

H,A 

XCHG 

JMP 

HERE2 

NOP 

NOP 

TEMP 

NOP 

NOP 

LNK21 

DB 

4 

DB 

1 C ' 

DB 

* R ' 

DB 

'L1 

DW 

LNK20 

DW 

$ + 2 

CRLF 

MV  I 

A,158 

CALL 

OUTTY 

MV  I 

A,12g 

CALL 

OUTTY 

RET 

LNK22 

DB 

5 

DB 

'S' 

DB 

• P ' 

DB 

'A' 

DU 

LNK21 

DW 

$ + 2 

SPACE 

MV  I 

A,408 

CALL 

OUTTY 

RET 

LNK23 

DB 

5 

3 
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OPCODE  OPERAND 


LABEL 


COMMENTS 


LABEL 


OPCODE 


OPERAND 


COMMENTS 


XCHG  • 

XRA  A 

MOV  H,A 

MOV  L,A 

MV I A, 5 

CMP  B 

JNC  CVT1 

I NX  D 

LDAX  D 

SUI  60a 

RLC 
RLC 
RLC 

MOV  L ,A 

MVI  B,  5 

CVT1  INX  D 

LDAX  D 

SUI  608 

ADD  L 

MOV  L,A 

DCR  B 

JZ  CVT2 

DAD  H 

DAD  H 

DAD  H 

JMP  CVT1 

CVT2  XCHG 

CALL  DESTK 
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LABEL  OPCODE 


OPERAND  COMMENTS 


LNK25  DB  6 

DB  'N' 

DB  'U' 

DB  'M' 

DW  LNK24 

DW  $ + 2 

NUMBR  CALL  HERE 

CALL  D@ 

CALL  HERE 

CALL  D1+ 

CALL  STKDE 

CALL  STKBC 

NUM1  LDAX  D 

CPI  608 

JC  NMERR 

CPI  708 

JNC  NMERR 

INX  D 

DCR  C 

JNZ  NUM1 

CALL  CVT 
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LABEL  OPCODE 


OPERAND 


ERBF 


LNK26 


Dl 


LNK27 


D, 


CALL 

TTYOT 

RET 

DB 

' ?' 

DB 

40o 

DB 

*2' 

DB 

1 

DB 

1 1 1 

DW 

0 

DW 

LNK25 

DW 

$ + 2 

CALL 

STKDE 

CALL 

STKBC 

XCH6  “ 

MOV 

M,C 

INX 

H 

MOV 

M,B 

RET 

DB 

1 

DB 

1 1 
» 

DW 

0 

DW 

LNK26 

DW 

$ + 2 

CALL 

STKBC 

LHLD 

DP 

INX 

H 

MOV 

M,C 

INX 

H 

MOV 

M,B 

SHLD 

DP 

RET 

DW 

0 

COMMENTS 


{ 
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LABEL 


LNK28 


ENTER 


OPCODE  OPERAND 


DM 

0 

DM 

0 

DM 

0 

DB 

5 

DB 

■E’ 

DB 

'N' 

DB 

•T* 

DM 

LNK27 

DM 

$ + 2 

LHLD 

DP 

INX 

II 

SHLD 

ETEMP 

INX 

H 

INX 

H 

INX 

H 

INX 

XCHG 

H 

LHLD 

LINK 

MOV 

A ,L 

STAX 

D 

INX 

D 

MOV 

A,H 

STAX 

0 

INX 

D 

MOV 

H,D 

MOV 

L,E 

INX 

H 

INX 

H 

MOV 

A.L 

STAX 

D 

INX 

D 

MOV 

A,H 

COMMENTS 


-54- 


LABEL  OPCODE  OPERAND  COMMENTS 


STAX 

D 

XCHG 

SHLD 

DP 

RET 

ETEMP 

Dfc 

0 

DW 

0 

LNK29 

DB 

4 

DB 

•L* 

DB 

T 

DB 

•N* 

DW 

LNK28 

DW 

$ + 2 

DUNK 

LHLD 

ETEMP 

SHLD 

LINK 

RET 

LNK30 

DB 

2 

DB 

T 

DB 

1 • 

9 

DB 

0 

DW 

LNK29 

DW 

$ + 2 

01, 

CALL 

STKBC 

LHLD 

DP 

I NX 

H 

MOV 

M.C 

SHLD 

DP 

RET 

LNK31 

DB 

7 

DB 

•L* 

DB 

•r 

./  •*  . . * 


r 


F 


LABEL 


LITRL 


LITHR 


LNK32 


COMPL 


U 


STATE 


0 

0 


OPCODE 


0 


-55- 


OPERAND 


DB 

T 

DW 

LNK30 

DW 

$ + 2 

LXI 

D, LITHR 

CALL 

DESK 

CALL 

COMPL 

RET 

NOP 

POP 

H 

MOV 

D,H 

MOV 

E,L 

INX 

H 

INX 

H 

PUSH 

H 

CALL 

DESTK 

CALL 

D@ 

RET 

DB 

7 

DB 

•c 

DB 

‘O' 

DB 

* M* 

DM 

LNK31 

DW 

$ + 2 

MV  I 

A,3158 

CALL 

PUSH 

MV  I 

A,0 

CALL 

PUSH 

CALL 

Dl, 

CALL 

D, 

RET 

DB 

0 

DW 

0 

COMMENTS 


LABEL 

LNK33 


EXEC 


EXEC1 


-56r 


OPCODE  OPERAND 


DB 

H8. 

DB 

'E' 

DB 

'X' 

DB 

*E ' 

DU 

LNK32 

DW 

$ + 2 

LXI 

SP,KEND+24010 

LXI 

H.EXEC 

PUSH 

H 

CALL 

UPDCT 

CALL 

SERCH 

CALL 

DUP 

CALL 

ZERO? 

JC 

EXEC1 

CALL 

DROP 

JMP 

NUMBR 

CALL 

DUP 

CALL 

STKDE 

XCHG 

L*I 

0,1  77772 

DAD 

D 

LDA 

STATE 

MOV 

C,A 

MOV 

A,M 

AN  I 

200 

NOP 

NOP 

CMP 

C 

JC 

EXEC2 

COMMENTS 


in  ■ 


0 

0 

In 

i 


-57- 


LABEL 

OPCODE 

OPERAND 

CALL 

D@ 

CALL 

STKDE 

XCHG 

PCHL 

EXEC2 

CALL 

DO 

CALL 

COMPL 

RET 

NOP 

NOP 

NOP 

LNK34 

DB 

4 

OB 

•C' 

DB 

'O' 

DB 

' D’ 

DW 

LNK33 

DW 

$ + 2 

CODE 

CALL 

UPDCT 

LDA 

TSTVL 

CPI 

0 

JNZ 

FORGT 

CALL 

SERCH 

CALL 

ZERO? 

JC 

SURE 

FORGT 

CALL 

ENTER 

RET 

SURE 

LXI 

D.SUREA 

CALL 

DESTK 

LXI 

0,4 

CALL 

DESTK 

CALL 

TTYOT 

CALL 

INTTY 

CPI 

15g 

COMMLNTS 


T ' 


-58- 


LABEL 

OPCODE 

OPERAND 

JNZ 

FORGT 

JMP 

CODE 

SUREA 

DB 

'S' 

DB 

'U* 

DB 

' R’ 

DB 

'E' 

TSTVL 

DB 

0 

LNK35 

DB 

1 

DB 

• . i 

DW 

0 

DW 

LNK34 

DW 

$ + 2 

CALL 

CODE 

MV  I 

a,  m 

STA 

STATE 

RET 

LNK36 

DR 

3 

DB 

' R' 

DB 

' T' 

DB 

' N ' 

DW 

LNK35 

DW 

$ + 2 

RTN 

MV  I 

A 1 31 1 8 

CALL 

PUSH 

MV  I 

A,0 

CALL 

PUSH 

CALL 

D1. 

CALL 

DLINK 

RET 

DW 

0 

COMMENTS 


-59- 


LABEL 

OPCODE 

OPERAND 

COMMENTS 

LNK37 

OB 

1 

OB 

• . 1 
t 

DM 

0 

DM 

LNK36 

DW 

$ + 2 

0; 

CALL 

RTN 

MV  I 

A,0 

STA 

STATE 

RET 

NOP 

LNK38 

OB 

1 

OB 

1 1 
• 

DW 

0 

Dw 

LNK37 

OW 

$ ♦ 2 

D. 

CALL 

STKDE 

XCHG 

XRA 

A 

DAD 

H 

RAL 

ADI 

608 

CALL 

OUTTY 

MV  I 

D,5 

LOOP 

XRA 

A 

DAD 

H 

RAL 

DAD 

H 

RAL 

DAD 

H 

RAL 

[j 

f] 


1A-BEL  OPCODE 

ADI 

CALL 

OCR 

JNZ 

RET 

LNK39  OB 

DB 
DB 
DB 
DW 
DW 

ltrl,  LXI 

CALL 
CALL 
RET 

LR,  POP 

MOV 
MOV 
INX 
INX 
PUSH 
CALL 
RET 

LNK40  DW 


DW 

DW 

DW 


~E-RAND  COMMENTS 

60g 
OUTTY 
D 

LOOP 

108 

V 

•I' 

•T* 

LNK38 
$ + 2 
O.LR, 

DESTK 

COMPL 

H 

D, H 

E. L 
H 

H 

H 

OESTK 

0 

0 

LNK39 
$ ♦ 2 

5 

* I * 


61- 


LABEL 

OPCODE 

OPERAND 

COMMENTS 

DB 

■N1 

DB 

•T* 

DM 

LNK40 

DM 

$ + 2 

FLAG? 

IN 

STATU 

AN  I 

DAV 

JZ 

FLAG? 

f } 

IN 

TTY 

| 

LI 

AN  I 

1778 

i 

n 

CALL 

OUTTY 

lJ 

RET 

KENO 

NOP 

STATU 

EQU 

0 

;STATUS  PORT 

TTY 

EQU 

1 

; I/O  PORT 

TBE 

EQU 

2008 

:TBE  FLAG 

DAV 

EQU 

1008 

;DAV  FLAG 

SPA 

ORG 

20000g 

;UPPLR  MEM  DOUNU+1 

POP? 

EQU 

041g 

;MSB  OF  BOUNDS 

E 

B 


' '-F 
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